Code VBA- calcul moyenne mobile-

Bonjour,
Depuis tout à l'heure je galère alors je me tourne vers vous.
Je souhaite calculer des moyennes mobiles à 9 périodes avec le code VBA. ( je précise que que je débutant )
mes données sont disposées comme suit: feuil1 : B1=titre; De B2 à B1300 il y a les prix. la feuil2 est renommée resultats.
Voici mon code:

Option Explicit
Option Base 1
Sub moymob9()
Dim i, n As Integer
Dim tableau() As Double
Dim plage As Variant
Worksheets("feuil1" ).Select
Set plage = Range(Cells(2, 2), Cells(2, 2).End(xlDown))
'compte le nombre de cellules de la plage
n = WorksheetFunction.Count(plage)
ReDim tableau(n, 1)
For i = 10 To n
tableau(i, 1) = WorksheetFunction.Average(Cells(i - 8, 2), Cells(i, 2))
Next i
Worksheets("resultats" ).Activate
Columns(1).Clear
For i = 1 To n
Cells(i, 1).Value = tableau(i, 1)
Next i
End Sub

Ce code me donne de faux resultats. J'en conclue que c'est mon code qui est faux. Est-ce que vous pourriez me dire à quel niveau ca coince svp?
Mille Merci!