Function Correspondance(ByVal Restit, ByVal Quoi, ByVal OùÇa)
Dim L As Long, C As Long
If TypeOf Restit Is Range Then Restit = Restit.Value
If TypeOf Quoi Is Range Then Quoi = Restit.Value
If TypeOf OùÇa Is Range Then OùÇa = OùÇa.Value
For L = 1 To UBound(OùÇa, 1): For C = 1 To UBound(OùÇa, 2)
If OùÇa(L, C) = Quoi Then Exit For
Next C, L
If L <= UBound(OùÇa, 1) Then Correspondance = Restit(L, C)
End Function