Bonjour tout le monde,
 
j'ai un probléme de programmation en VBA, je connais déjà la cause du probléme, ma complète incompétence.
Néanmoins, j'ai pondu le petit algorithme suivant censé faire les moyennes de parties de ma série de donnés entre 2 valeurs nulles, et de me donner ces donnés dans un tableau situé dans la même feuille.
Mes seules compétence en VBA sont les quelques informations que j'ai glané à droite à gauche sur la toile, le probléme est donc probablement un truc tout con ....
Le programme est dimensionné dans un premier temps pour ma feuille précisément, mais je compte l'améliorer plus tard.
L'erreur est "objet requis"
 
Sub moyenneparpart()
Dim i As Double, n As Double, J As Double, moy As Range
'--- i rang de lecture, n rang de début de listes, j rang d'écriture de moy
J = 86
i = 95
n = i
For i = 95 To 286
 If Cells(i, 8) = 0 Then
    moy = WorksheetFunction.Average(Sheet1.Range(Cells(n, 8), Cells(i, 8)))
    Cells(J, 14) = moy: J = J + 1: n = i
 End If
Next i
 
End Sub
 
 
Merci d'avance pour le temps que vous accorderez à ce probléme.

Bonjour
 
J'ai pas tester plus que ca, mais la direct, tu as un souci :

Sheet1 c'est quoi ? Si tu veux faire reference a ton onglet 1 c'est Sheets("NomDeTaFeuille" ) ou Sheets(NumeroDeTaFeuille) par exemple la feuille 1 ca serait Sheets(1)