XL 2016 Plage dans fonction INDEX EQUIV

Function ChercheCelPlage(ByVal Quoi, ByVal Rng As Range) As Range
   Set ChercheCelPlage = Rng.Find(Quoi, LookAt:=xlWhole)
   End Function

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