Function Correspondance(MatIn As Range, MatOut As Range, Valeur)
Application.Volatile
Col = 0: Lig = 0
For Each c In MatIn
aaaa = c.Value
If c.Value = Valeur Then
Col = c.Column
Lig = c.Row - 1
Exit For
End If
Next
If Lig = 0 Or Col = 0 Then
Correspondance = "Non trouvé"
Else
Correspondance = MatOut(Lig, Col)
End If
End Function