Une moyenne avec un si, petit soucis

Bonjour,

Pour mon stage, je dois traiter une énorme base de donnée. Je n'y connais pas encore grand chose au langage VBA d'où mon appel sur ce forum.

J'essaye d'automatiser le calcul de plusieurs moyennes où les différents groupes de valeurs sont sur la même colonne et séparées par trois cases deux vides et être elles une où c'est marqué "ok". La plage des valeurs à calculer sont variables allant de une à plusieurs milliers.

Ma logique était de lui faire calculer la moyenne avec la fonction, dès qu'il voit ok, il me calcule la moyenne des valeurs en dessous et d'afficher le résultat donne une autre colonne. Pour cela , j'ai utilisé ceci en piochant à droite, à gauche :

Sub moyenne()
'
' moyenne Macro
'
If Range("F2") = "ok" Then ' => SI condition validée ALORS
'Instructions si vrai
Range("J2").FormulaR1C1 = Application.Average(Range(Range("F4"), Range("F4").End(xlDown)))
Else ' => SINON
'Instructions si faux
Range("J2").FormulaR1C1 = "ok"
End If
End Sub

Cela fonctionne mais le hic c'est que j'aimerais cela s'applique à toute la colone J en utilisant ce genre de code :

DernLigne = Range("G" & Rows.Count).End(xlUp).Row
Range("J2").AutoFill Destination:=Range("J2:J" & DernLigne)

or cela ne fait que glisser la valeur obtenue, je vois bien que le code Applicaton.average renvoie une valeur et non une formule que je puisse ensuite utiliser sur toute la colonne.

J'espère avoir été plus ou moins clair dans mes explications et que vous serez m'aider pour résoudre mon soucis qui à coup sûr vous paraitra évident. Merci