Sub Cherche_Fichier()
Dim LstFile As Long
With Application.FileSearch
.NewSearch
.RefreshScopes
.Filename = "etat.xls"
.LookIn = "c:"
.SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile, 1).Value = .FoundFiles(LstFile)
Next LstFile
End With
End Sub