XL 2016 variation des cotisations

[btibti]

Bonjour,
j'ai des cotisations que je dois les faire majorer annuellement avec un taux de majoration.
j'ai crée sous Vba la fonction correspondante à cela, mais comme je dois utiliser en paramètre de cette fonction un tableau qui me stock les résultats annuellement et puis les renvoie dans une zone de liste déroulante que j'ai crée dans ma feuille excel à l'aide d'une procédure.
mais le programme que j'ai effectué ne marche pas et me renvoie erreur d’exécution '13' :

Voici le programme que j'ai écrit :

Function Cot(vecteur1, cotisation, taux)
Dim i As Integer
vecteur1(0) = CDbl(Cotisation)
For i = 0 To 39
vecteur1(i) = vecteur1(0) * (1 + taux) ^ i
Next
Cot = vecteur1
End Function

Private Sub Simul_Rslts_Click()
Dim Cotis, tx As Double
Cotis = CDbl(Cotisation)
tx = CDbl(TxVar)
Dim VarCot(0 To 40) As Double
VariCot = Cot(VarCot, Cotis, tx)
vectCoti.AddItem VariCot
End Sub