Probléme code VBA

Bonjour,
Je cherche a pricer une option VBA voici mon code :
Function optionvente(S, X, rf, sig, T, n)
delt = T / n
u = Exp(sig * sqrt(delt))
d = Exp(-sig * sqrt(delt))
r = Exp(rf * delt)
pu = (r - d) / (u - d)
pd = 1 - pu
Dim rendementoptionfin() As Double
Dim rendementoptionmilieu() As Double
ReDim rendementoptionfin(n + 1)
For état = 0 To n
rendementoptionfin(état) = Application.Max(X - S * u ^ état * d ^ (n - état), 0)
Next état
For i = n - 1 To 0 Step -1
ReDim rendementoptionmilieu(i)
For état = 0 To i
ReDim rendementoptionmilieu(i)
For état = 0 To i
rendementoptionmilieu(état) = pd * rendementoptionfin(état) + pu * rendementoptionfin(état + 1)
Next état
ReDim rendementoptionfin(i)
For état = 0 To i
rendementoptionmilieu(état) = rendementoptionfin(état)
Next état
Next i
optionvente = rendementoptionmilieu(0)
MsgBox (optionvente)
End Function
mais le problème c'est quand je bascule sous EXCEL pour exécuter la macro il m'affiche erreur veuillez slvp m'aidez c"est pour un TP ,et merci d'avance.