Private Sub UserForm_Initialize()
y = ActiveWorkbook.FullName 'recupere le chemin du fichier
h = ActiveWorkbook.Name 'recupere le nom du fichier
lg = Len(h) 'len=longueur
chemin = Mid(y, 1, Len(y) - Len(h))
Dim fso, f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder(chemin).Files
ComboBox1.AddItem f.Name
Next f
End Sub