Sub Recherche_Fichier2()
Dim FSO As Scripting.FileSystemObject
Dim Rep As Scripting.Folder
Dim Fichier As Scripting.File
Dim Chemin, lign As Long
Chemin = "Q:\bilans" ' Chemin du répertoire où aura lieu la recherche
Set FSO = New Scripting.FileSystemObject
Set Rep = FSO.GetFolder(Chemin)
Range("C1:C" & Range("C65536").End(xlUp).Row).ClearContents
For Each Fichier In Rep.Files
If Fichier.Name Like Range("A1").Value & "*" Then
lign = lign + 1
Range("C" & lign) = Fichier.Path
End If
Next
If Range("C1").Value = "" Then MsgBox "Fichier: " & Range("A1").Value & " introuvable", , "Erreur:"
Set FSO = Nothing
Set Rep = Nothing
Set Fichier = Nothing
End Sub