Bonjour tout le monde,

Après de multiples recherches sur le net, je n'ai pas réussi à trouver réponse à mon problème.

En effet dans mon code VBA j'utilise une procédure qui permet de le simplifier "Enfin pas pour l'instant" !! J'ai "une erreur d'éxécution 424", qui me met qu'un "objet est requis ", ce code s'affiche sur la ligne "Liste = ....."

Je vous donne le debut du code qui plante :

Public Sub AjoutProuduit()

Dim objFeuille As Worksheet
Dim Liste As ListBox


Select Case frmdepense_categ.MultiPage1.SelectedItem.Caption

Case "Alimentation":
Set objFeuille = Application.ThisWorkbook.Worksheets.Item("Alimentation")
Set Liste = frmdepense_categ.MultiPage1.pgAlimentation.lstAlimentation.List
Case "Boisson":
Set objFeuille = Application.ThisWorkbook.Worksheets.Item("Boisson")
Set Liste = frmdepense_categ.MultiPage1.pgAlimentation.lstBoisson

Merci beaucoup de me donner un coup de pouce ...

Cordialement

2berte