Bonsoir le forum,
Salut Cr30,
avec une fonction personnalisée en [E2], placée dans le 'Module1'.
Fichier à enregistrer en '.xlsm' - Prendre en charge les macros.
Public Function fctTarif(ByVal rCel As Range, rCells As Range)
'
Dim tTab, iTaxe%
Application.Volatile
'
tTab = rCells.Cells.Value
For x = UBound(tTab, 1) - 1 To 1 Step -1
If rCel.Value > tTab(x, 2) Then iTaxe = iTaxe + tTab(x + 1, 4)
Next
fctTarif = iTaxe
'
End Function
A+