Difficultés pour coder une macro et la lancer

Bonjour,

J'essaye de faire une macro qui a partir de deux colonnes contenant n valeurs (colonne des X1 jusqu'a Xn et colonne des F1 jusqu'a Fn) me permettra de calculer une somme qui combine toute ces valeurs.

Ce nombre est nommé Ay.

Ay= F1*(X2+X3+X4+...+Xn)+F2*(X3+X4+...+Xn)+...+Fn-1*Xn


mon code est le suivant:

Option Explicit


Const celn As String = "B1"
Const celAx As String = "B2"
Const coXi As String = "D"
Const coFi As String = "E"
Const coYi As String = "F"
Const listart As Byte = 6


Sub FAY()

Dim TX() As Double, TF() As Double, Dim AY() As Double
Dim AYN As Double
Dim i As Byte, k1 As Byte, k As Byte, n As Byte
Dim SX1 As Double, SX As Double


n = Range(celn).Value

ReDim AY(1 To n) ' Les AY(i) correspondent aux différents termes de la somme
ReDim TX(1 To n)
ReDim TF(1 To n)

'définir les valeurs des deux colonnes de Xk et Fk

For i = 1 To n
TX(i) = Range(colXi & listart + i - 1).Value
TF(i) = Range(colFi & listart + i - 1).Value
Next i

'construire le premier terme de ma somme

AY(1) = TF(1)
SX1 = TX(2)

For i = 2 To n
SX1 = SX1 + TX(i + 1)
Next i

AY(1) = TF(1) * SX1

' construire les termes suivants

For k = 1 To n
TX(k) = Range(coXi & listart + k - 1).Value
TF(k) = Range(coFi & listart + k - 1).Value
Next k

For k = 2 To n - 1

AY(k) = AY(k - 1)
SX = TX(k + 1)

For k1 = k + 1 To n
SX = SX + TX(k1 + 1)
Next k1

AY(k) = AY(k) + TF(k) * SX
AYN = AY(k)
Next k
Range("A6").Value = AYN

End Sub


Voila je débute tout juste sur VBA et je me suis basé sur un code que quelqu'un m'a donné sur ce forum pour une autre macro pour réaliser celle ci alors j'ai surement du faire plusieurs erreurs mais pour le moment qd j'essaye de lancer la macro j'obtiens le message :"L'indice n'appartient pas à la sélection". J'ai regarder qu'est ce qui pouvait provoquer ca mais je 'a pas trouver le lien avec mon code.
Si vous avez une idée merci.