Private Sub UserForm_Initialize()
Dim Chemin As String
Dim fso, ListR, sRep, ListF, Rep, LesReps, fich, LesFichs
Chemin = "C:\Temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ListR = fso.GetFolder(Chemin)
Set sRep = ListR.SubFolders
UserForm1.ListBox1.ColumnCount = 2
UserForm1.ListBox1.ColumnWidths = "200;200"
For Each Rep In sRep
For Each fich In Rep.Files
If fich.Name <> "" Then
ListBox1.AddItem fich.Name
ListBox1.List(ListBox1.ListCount - 1, 1) = Chemin & Rep.Name & "\" & fich.Name
End If
Next
Next
End Sub