Problème de code Duration

c bon j'ai réussi à trouver ce qui clochait...

le code si ça intéresse quelqu'un ou si quelqu'un était en train de chercher:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub CommandButton1_Click()
 
'Définition des variables
    Dim Flux As Currency
    Dim Nominal As Currency
    Dim Taux As Currency
    Dim NbAnnées As Integer
    Dim ValeurActualisée() As Currency
    Dim Vm As Currency
    Dim VmT As Currency
    Dim i As Integer
 
    'Initialisation des variables
    Nominal = InputBox("Montant du nominal")
    Flux = InputBox("Montant du Flux ?")
    Taux = InputBox("Taux de l'obligation (en % ... Taper 5 pour 5%)") / 100
    NbAnnées = InputBox("Durée de l'obligation en années")
    Vm = 0
    VmT = 0
    ReDim ValeurActualisée(NbAnnées, 1)
 
    'Calcul des Valeurs actualisées au fur et à mesure de la boucle
    For i = 1 To NbAnnées
        'valeur actualisée, mais en pondérant chaque séquence par un coefficient multiplicateur correspondant au moment T de la séquence.
        'Vm(T)  = Somme de 1 à T de (CouponT/(1+r)^T)*T
        ValeurActualisée(i - 1, 0) = (Flux / ((1 + Taux) ^ i)) * i
        VmT = VmT + ((Flux / ((1 + Taux) ^ i)) * i)
        'Valeur actualisée d'une obligation au taux actuariel du marché
        'Vm  = Somme de 1 à T de CouponT/(1+r)^T
        ValeurActualisée(i - 1, 1) = Flux / ((1 + Taux) ^ i)
        Vm = Vm + (Flux / ((1 + Taux) ^ i))
    Next i
 
    Dim h As Integer
    Dim b As Integer
 
    h = VmT + ((Nominal * NbAnnées) / ((1 + Taux) ^ NbAnnées))
    b = Vm + (1000 / ((1 + Taux) ^ NbAnnées))
 
    'Calcul de la duration
    'Elle est égale au rapport Vm(T)/Vm
    'MsgBox "La duration est égale à : " & VmT / Vm
    MsgBox "La duration est égale à : " & h / b
 
End Sub