Erreur dans mon code

hello à tous,
je sollicite la communauté excel-download pour m'aider à comprendre pourquoi mon code ne fonctionne pas.
Le code est divisé en deux fonction et une macro.
La fonction Searchname renvoie le numéro de la ligne d'un tableau de données.
La fonction DataSector permet d'enregistrer les données lié au nom recherché dans un tableau.

Les fonctions fonctionnent, là ou j'ai un souci c'est dans le sub. Il m'affiche une erreur à la premiere ligne contenue dans le for. Je souhaite réaliser des opérations sur le tableau DataSector, et tout sauver dans un tableau de taille (8,4). Après cette étape je souhaite coller ce tableau dans une feuille Excel.
Mais apparement ça ne fonctionne pas

J'espère que vous pouvez m'aider.
Merci,

Function DataSector(SearchFund As String)
Dim Fundline As Integer
Fundline = SearchName(SearchFund)
Dim DataSec(1, 64)


For i = 1 To 64 Step 1
DataSec(1, i) = Cells(Fundline, 162 + i).Value
Next i
DataSector = DataSec
End Function

Sub DataSector2()
Range(Cells(127, 1), Cells(127, 64)) = DataSector("Marshall")
Dim DataF(8, 4) As Double
i = 1
j = 1
For l = 1 To 32 Step 4

DataF(j, l) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 4).Value) DataF(j, l + 1) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 1).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 5).Value)
DataF(j, l + 2) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 2).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 6).Value)
DataF(j, l + 3) = WorksheetFunction.Sum(Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 3).Value, Range(Cells(127, 1), Cells(127, 64)).Cells(1, i + 7).Value)
i = i + 8
j = j + 1
Next l

Selection = DataF(8, 4)

End Sub

En gros, je n'arrive pas à stocker la valeur de deux cellules additionnées dans le tableau DataF, j'ai l'impression...