Function Prix(ByVal Dist As Double, ByVal TDist As Range, ByVal TPrix As Range, ByVal TPkmS As Range) As Currency
Dim L As Long
L = WorksheetFunction.Match(Dist, TDist)
Prix = TPrix(L, 1).Value + (Dist - TDist(L, 1).Value) * TPkmS(L, 1).Value
End Function