Hi all,
Here is the code of the Userform I use
If Me.répertoire = "" Then Me.répertoire = ThisWorkbook.Path
nf = Dir(Me.répertoire & "\*.*")
n = 0
Do While nf <> ""
n = n + 1
ReDim Preserve Tbl(1 To n)
Tbl(n) = nf
nf = Dir
Loop
If n > 0 Then Me.ListBox1.List = Tbl...