Function Prix(Objet, Spec, Qté)
Prix = ""
DerLig = Range("B65500").End(xlUp).Row
tablo = Range("B3:E" & DerLig)
For L = 1 To UBound(tablo)
If tablo(L, 1) = Objet And tablo(L, 2) = Spec Then
If tablo(L, 3) >= Qté Then
Prix = tablo(L - 1, 4)
Exit Function
End If
End If
Next L
End Function