Function Prix(Objet, Spec, Qté)
Dim Qty(), Price(), N As Integer, L As Integer, i As Integer
Prix = 0
If Objet = "" Or Spec = "" Then Exit Function
N = 0
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
ReDim Preserve Qty(N)
ReDim Preserve Price(N)
Qty(N) = tablo(L, 3)
Price(N) = tablo(L, 4)
N = N + 1
End If
Next L
For i = 0 To UBound(Qty)
If Qté < Qty(0) Then Prix = Price(0)
If Qté >= Qty(UBound(Qty)) Then Prix = Price(UBound(Qty))
If Qté >= Qty(i) Then Prix = Price(i)
Next i
End Function