Function Remarques(tablo As Variant, matricule As Variant, dat As Variant) As String
Dim i&
tablo = tablo.Value2 'matrice, plus raide
matricule = matricule.Value2
dat = dat.Value2
For i = 2 To UBound(tablo)
If tablo(i, 1) = matricule And tablo(i, 8) = dat Then Remarques = tablo(i, 7): Exit Function
Next
End Function