Function RechercheP(ParamArray My_Arg()) As Variant
Dim Max As Integer
Dim Index As Integer
Dim FindOK As Boolean
Dim MyFind As String
Dim CIndex As Integer
MyFind = My_Arg(0)
CIndex = My_Arg(1)
Max = UBound(My_Arg)
FindOK = False
For Index = 2 To Max
If FindOK Then Exit For
RechercheP = My_Arg(Index).Name
R = Range(RechercheP).Rows.Count
C = Range(RechercheP).Columns.Count
If CIndex > C Then RechercheP = "#REF!": Exit Function
For MyR = 1 To R
If LCase(Range(RechercheP)(MyR, 1)) = LCase(MyFind) Then
RechercheP = Range(RechercheP)(MyR, CIndex)
Exit Function
End If
Next MyR
Next Index
RechercheP = "#N/A"
End Function