Désolé, je n'avais pas compris que tu voulais mettre ton modèle n'importe où (ce qui par ailleurs n'est pas forcément une bonne idée).
Voici une routine simplifiée qui te retourne le premier fichier rencontré sur le disque C: avec le critère de recherche que tu lui donnes.
Tu pourras facilement l'adapter et la compléter selon tes besoins. Pour plus de détails, consulte l'aide VBA sur l'objet FileSearch.
Function ChercheFichier(Fichier As String)
With Application.FileSearch
.NewSearch
.LookIn = "C:"
.Filename = Fichier
.SearchSubFolders = True
.FileType = msoFileTypeOfficeFiles
If .Execute() > 0 Then ChercheFichier = .FoundFiles(1)
End With
End Function
Sub test()
Dim MonFichier
MonFichier = ChercheFichier("couleurs.xls")
End Sub