Function recherche_fichier(nom As String, feuille As String, colonne As String, valeur As Variant, depart As Long) As Long
Dim nbl As Long, i As Long
Workbooks.Open Filename:=nom
With Sheets(feuille)
If depart = 0 Then depart = 1
nbl = .Range(colonne & "65500").End(xlUp).Row
recherche_fichier = 0
For i = depart To nbl
If .Range(colonne & CStr(i)).Value = valeur Then recherche_fichier = i: i = nbl + 1
Next i
End With
ActiveWorkbooks.Close
End Function