Option Explicit
Function ColonneA(ByVal Arg, ParamArray Rech())
Dim P, Rng As Range, L As Long
On Error Resume Next
For P = 0 To UBound(Rech)
Set Rng = Rech(P)
Err.Clear: L = WorksheetFunction.Match(Arg, Rng, 0)
If Err = 0 Then ColonneA = Rng(L, 1).EntireRow.Columns(1).Value: Exit Function
Next P
End Function