Dans les références, cocher Microsoft Scripting Runtime
a$ = <chemin complet du répertoire>
Dim fs As FileSystemObject
Set fs = New FileSystemObject
Dim objFolder As Folder
Set objFolder = fs.GetFolder(a$)
Dim f As File
i = 0
For Each f In objFolder.Files
i = i + 1
<si utilisation sous excel, par exemple>
Sheets("Sheet1").Cells(i, 1) = f.Path
Next