Private Sub UserForm_Initialize()
Dim strDirectory As String
Dim strFile As String
Dim lb As MSForms.ListBox
Dim i As Integer
strDirectory = InputBox("Choisir le Répertoire", "Fichiers", "\\ml350\production\Atelier CONTROLES\Rapport de controle final\")
If strDirectory = "" Then Exit Sub
ChDrive Left(strDirectory, 1)
ChDir strDirectory
strFile = Dir("*.xls")
Set lb = UserForm1.ListBox1
Do Until strFile = ""
i = i + 1
lb.AddItem strFile
strFile = Dir()
Loop
End Sub