Bonjour ltbg, jordan et le forum.
Un exemple de code à adapter.
Sub RechercheFichiers()
Set fs = Application.FileSearch
With fs
.LookIn = 'C:\\Documents and Settings'
.SearchSubFolders = True
If .Execute > 0 Then
MsgBox (.FoundFiles.Count & 'Fichier(s) ont été trouvés.')
For i = 1 To .FoundFiles.Count
Cells(i, 1) = (.FoundFiles(i))
Next i
End If
End With
End Sub