Function InteretsWTF(B As Range, C As Range, Inter)
Dim TabloB, TabloC, SoldeP, i%
TabloB = B: TabloC = C ' init tableaux
SoldeP = TabloC(1, 1) ' init du solde
InteretsWTF = 0 ' init du retour fonction
For i = 2 To UBound(TabloB)
SoldeP = SoldeP + TabloC(i, 1)
InteretsWTF = InteretsWTF + (SoldeP * Inter / (12 * (TabloB(i - 1, 1) - TabloB(i, 1))))
Next i
End Function