Sub Recup()
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path ' Chemin
.Filename = "Hôtesse*.xls" ' Nom des fichiers
.Execute ' Vas-y
' Juste pour savoir
For I = 1 To .FoundFiles.Count
Msg = Msg & Right(.FoundFiles(I), 20) & vbCr
Next I
End With
MsgBox Msg
End Sub