Listbox

bonjour

j'ai crée une list box sur un classeur me permettant d'afficher la liste de toutes les feuilles présente dans ce dernier

avec l'instruction suivante :

Private Sub UserForm_Initialize()
' Rajoute les feuilles créées dans Excel à la liste du formulaire

    Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Worksheets
        ListBox.AddItem feuille.Name
    Next

End Sub

jusque là ca marche , mais je souhaiterai afficher à coté du nom de chaque feuille dans la liste box , la valeur de la cellule H5 associé au nom de la feuille sachant que ma cellule H5 contient du texte

j'ai essayé comme ceci mais cela ne marche pas :

Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Worksheets
        ListBox.AddItem feuille.Name,cells(5,8).text
    Next

Je vous remercie par avance pour toute suggetion

Cordialement

Bonjour,

    Dim feuille As Worksheet
    For Each feuille In ActiveWorkbook.Worksheets
        ListBox.AddItem feuille.Name & " " & Feuille.[H5]
    Next

A+

Merci à toi pour cette réponse ca marche du tonnerre !!!

te souhaite une bonne journée

juste une dernière question

j'ai bien une list box avec les noms de feuilles associées et la valeur de la cellule H5 associé à la feuille , cependant lorsque j'effectue une selection de la feuille dans la liste box pour afficher la feuille j'ai une erreur sur la ligne suivante

Private Sub ActiverFeuille()
On Error Resume Next
        ActiveWorkbook.Worksheets(ListBox.Text).Activate
End Sub

sur la ligne :

ActiveWorkbook.Worksheets(ListBox.Text).Activate

comment puis je resoudre ce petit conflit , merci ?