Option Compare Text 'la casse est ignorée
Function RECHVAL(v1$, v2$, tablo1, tablo2)
'tablo1 => 2 colonne, tablo2 => 2 colonnes
Dim i&, t(1 To 2)
tablo1 = tablo1 'matrice
tablo2 = tablo2 'matrice
For i = UBound(tablo1) To 1 Step -1
If tablo1(i, 1) = v1 Then
If tablo1(i, 2) = v2 Then
t(1) = tablo2(i, 1): t(2) = tablo2(i, 2)
RECHVAL = t
Exit Function
End If
End If
Next
End Function