Application fonction ligne tableau vba

Re bonjour, j'essai d'appliquer une fonction, sur les lignes du tableau, résultat 6 colonne, mais erreur

sum c'est pour l'exemple
merci

Sub test_tableau()

Dim My_Array()

Sheets("BD").Select


My_Array = Range(Range("E3"), Range("I3").End(xlDown))

ReDim Preserve My_Array(1 To UBound(My_Array, 1), 1 To 6)


For x = 1 To UBound(My_Array, 1)
For y = 1 To UBound(My_Array, 2)

My_Array(x, 6) = Application.Sum(My_Array(X, Y))


Next
Next


Sheets("feuil1").Activate


[A1].Resize(UBound(My_Array, 1), UBound(My_Array, 2)) = My_Array

End Sub