Covariance et matrice (vba)

Bonjour, je suis débutante et je bloque à un certain niveau !! si je pouvais avoir un p'tit coup de pouce svp !

Function moyennesColonnes(T, n, p As Integer) As Integer

Dim MC() As Integer
Dim i As Integer
Dim j As Integer
Dim s As Integer

ReDim MC(1 To p) As Integer

For j = 1 To p
s = o
For i = 1 To n

s = s + T(i, j)

Next i

MC(j) = s \ n

moyennesColonnes = MC(j)

Worksheets(1).Cells(i + 12, 1).Value = "Les moyennes des colonnes:"
Worksheets("Feuil1").Cells(i + 12, 1).Font.ColorIndex = 5
Worksheets("Feuil1").Cells(i + 12, j + 2) = MC(j)
Worksheets("Feuil1").Cells(i + 12, j + 2).Font.ColorIndex = 5

Next j


End Function 'moyennesColonnes.

Sub variancesColonnes(T, n, p As Integer)

Dim MC() As Integer
Dim VC() As Integer
Dim i, j As Integer
Dim s As Long

ReDim VC(1 To p) As Integer


For j = 1 To p
For i = 1 To n

s = s + T(i, j) * T(i, j)

Next i




VC(j) = s \ n - MC(j) * MC(j) ===>> c'est la que ça coince ! "l'indice n'appartient pas à la sélection "



Worksheets(1).Cells(i + 18, 1).Value = "La variance des colonnes:"
Worksheets("Feuil1").Cells(i + 18, 1).Font.ColorIndex = 3
Worksheets("Feuil1").Cells(i + 18, j + 2) = VC(j)
Worksheets("Feuil1").Cells(i + 18, j + 2).Font.ColorIndex = 3

Next j

End Sub 'variancesColonnes