Conversion d'une formule Excel en code VBA

Bonjour tout le monde,

Pour amortir un montant donné (une charge) sur plusieurs années (30 ans), j’ai mis en place une formule Excel qui me donne le résultat escompté. Un extrait de la formule sur les 5 premières années est le suivant :

=si(Duree_Amort*1+1=An_Amort;Montant*Indice;0)
+si(Duree_Amort*2+1=An_Amort;Montant*Indice;0)
+si(Duree_Amort*3+1=An_Amort;Montant*Indice;0)
+si(Duree_Amort*4+1=An_Amort;Montant*Indice;0)
+si(Duree_Amort*5+1=An_Amort;Montant*Indice;0)

Or, quand il y a beaucoup d’argument dans ma fonction, Excel bloque et me sort le message suivant « Formule trop longue ».
Pour contourner le problème, j’ai pensé à mettre ma formule sous VBA en utilisant une fonction type :

Public Function CalcAmort(Duree_Amort, An_Amort, Montant, Indice)
if Duree_Amort*1+1=An_Amort
then Montant*Indice
else 0
End Function

Mais je n’arrive pas à trouver le bon code.
Merci par avance pour toute aide et excellente semaine.

Pricer