Function Localise(Qui As Range, Feuille As String) As String
Dim Cel As Range
Application.Volatile
If Trim(Qui) = "" Then Exit Function
With Sheets(Feuille)
Set Cel = .Range("B7,B8:I53,K8:R53").Find(what:=Qui, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Localise = Trim(.Range("A" & Cel.Row))
End If
End With
End Function