RechercheV sur un fichier externe sans connaitre completement le nom du classeur

Function RECH(fichier$, Feuil$, col1, col2, valeur)
Dim wb As Workbook, lig As Variant
For Each wb In Workbooks
  If fichier <> "" And wb.Name Like fichier & "*" Then Exit For
Next
If wb Is Nothing Then RECH = "Fichier ??": Exit Function
On Error Resume Next
If IsError(wb.Sheets(Feuil)) Then RECH = "Feuille ??": Exit Function
If Not Val(col1) Then col1 = CStr(col1)
If Not Val(col2) Then col2 = CStr(col2)
If IsError(wb.Sheets(Feuil).Columns(col1)) Or _
  IsError(wb.Sheets(Feuil).Columns(col2)) Then _
  RECH = "Colonne ??": Exit Function
lig = Application.Match(valeur, wb.Sheets(Feuil).Columns(col1), 0)
If IsError(lig) Then RECH = lig: Exit Function
RECH = wb.Sheets(Feuil).Cells(lig, Columns(col2).Column)
End Function

Function RECH(fichier$, tablo$, col%, valeur)
Dim wb As Workbook, t
For Each wb In Workbooks
  If fichier <> "" And wb.Name Like fichier & "*" Then Exit For
Next
If wb Is Nothing Then RECH = "Fichier ??": Exit Function
On Error Resume Next
If IsError(wb.Names(tablo)) Then RECH = "Tableau ??": Exit Function
t = Evaluate("'" & wb.Name & "'!" & tablo)
RECH = Application.VLookup(valeur, t, col, 0)
End Function

Function RECHV(valeur, fichier$, tablo$, col%)