Sub TheFileLister()
Dim TheFileSearcher As FileSearch
Dim i%, ThePath$, Z$
'ici met ton chemin sans \\ à la fin
ThePath = 'C:XXXXXXXXXXXXXXXXXXX'
On Error Resume Next
Set TheFileSearcher = Application.FileSearch
With TheFileSearcher
.NewSearch
.Filename = '*.xls*'
.LookIn = ThePath
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For i = 1 To .Count
Z = Dir(.Item(i))
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ThePath & '\\' & Z, _
TextToDisplay:=Z
Next i
End With
Else
MsgBox 'Pas de Fichier trouvéé dans ' & ThePath
End If
End With
Set TheFileSearcher = Nothing
End Sub