créer une macro prenant en compte plusieurs cellules différentes

[Tr4ks]

Bonjour,

Je souhaiterais créer une macro qui calcule un temps de retour actualisé en fonction d'un taux d'actualisation, d'un taux d'augmentation de l'énergie, d'un investissement et d'une économie initiale.

J'ai essayé de créer la macro mais j'aurai besoin d'aide sur la syntaxe pour :
-que la macro prenne en entrée des valeurs contenue dans des cellules fixes (tx d'actualisation, et d'augmentation de l'énergie), et relatives (investissement, et économie initiale)
-que le résultat soit écrit dans la cellule qui déclenche la macro
-que la macro se déclenche en C2, C4, etc.

Voici le schéma de macro que j'ai fait, je joins aussi le fichier xlsm

Sub TempsDeRetour(TxAct, TxEnr, Invest, EcoInit)

Dim E(1000) As Double
Dim van As Double
Dim cumul As Double
Dim i as integer

van = -1
E(0) = EcoInit
cumul=0

While van < 0
    For i = 1 To 1000
        E(i) = E(i - 1) * (1 + TxEnr) / (1 + txAct)
        cumul = cumul + E(i)
        van = cumul - Invest
    Next i
Wend

ActiveCell.Value = i

End Sub