Function equiv2c(rng, a, b, c)
'- rng pour désigner le tableau, a comme critère 1, b comme critère 2, c comme colonne à choisir (num)
tablo = rng
For N = LBound(tablo, 1) To UBound(tablo, 1)
If CStr(tablo(N, 1)) = CStr(a) And CStr(tablo(N, 2)) = CStr(b) Then equiv2c = tablo(N, c)
Next
End Function