Problème VBA : select case avec objet

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