Function IntpoCoulEAF(ByVal V As Double, ByVal RngTb As Range) As Long
Dim TV(), TEAF(), L0 As Long, L1 As Long, CLr As New Couleur, _
V0 As Double, E0 As Double, A0 As Double, F0 As Double, _
V1 As Double, E1 As Double, A1 As Double, F1 As Double
TV = RngTb.Columns(1).Value: TEAF = RngTb.Columns(2).Resize(, 3).Value
If V < TV(1, 1) Then L0 = 1: L1 = 1 Else L0 = WorksheetFunction _
.Match(V, TV, 1): L1 = L0 + 1: If L1 > UBound(TV, 1) Then L1 = L0
V0 = TV(L0, 1): E0 = TEAF(L0, 1): A0 = TEAF(L0, 2): F0 = TEAF(L0, 3)
V1 = TV(L1, 1): E1 = TEAF(L1, 1): A1 = TEAF(L1, 2): F1 = TEAF(L1, 3)
CLr.EAF IntpoLin(V, V0, E0, V1, E1), IntpoLin(V, V0, A0, V1, A1), IntpoLin(V, V0, F0, V1, F1)
IntpoCoulEAF = CLr.C
End Function