Salut,
Voici le code que tu veux.
Private Sub UserForm_Activate() 'ici le userform
Dim nbFichiers As Integer
Dim direction
Dim chemin
chemin = 'c:\\' ' 'ici c'est le répertoire qui contient les images
'**************************************************************************************
'lister les fichiers du repertoire
direction = Dir(chemin & '\\*.*')
Do While Len(direction) > 0
nbFichiers = nbFichiers + 1
ListBox1.AddItem direction 'ici j'ajoute dans la zone de liste les fichiers lus sur le disque
direction = Dir()
Loop
End Sub
Bonne soirée
John