Code Problème

Bonjour,

Je suis nouveau dans l'utilisation de VBA

Mais le problème, c'est que le résultat correspond à 0
alors que je voudrais qu'il correspond au chiffre i suivit de "ans"
Auriez vous des solutions ?

Merci d'avance

----------------------------

Function DRA(Investissement, Flux As Range, Taux)
Dim NbEcheance As Integer
NbEcheance = Flux.Rows.Count

x = -Investissement
For i = 1 To NbEcheance
x = x + (Flux.Cells(i, 1) / ((1 + Taux) ^ i))
If x >= 0 Then
GoTo FinDeRecherche
End If
Next i

b = " ans"
FinDeRecherche: DRA = i And b

End Function

----------------------------