Modifier Formule moyenne dynamiquement

Bonjour,

je voudrais savoir comment faire pour modifier ma formule moyenne

car pour modifier ma formule "dynamiquement" (à chaque fois qu'on va ajouter un poste) sur une somme je fais comme ceci

 
For a = 6 To LigneCMM Step 14
Range("x" & LigneCMM + 1).Formula = Range("x" & LigneCMM + 1).Formula 'Récupération de "l'ancienne" formule
Range("x" & LigneCMM + 1).Formula = Range("x" & LigneCMM + 1).Formula & "+" & Range("x" & a).Address 'Ajout d'une cellule dans la formule
Next a

quand je fais
Range("y356").Formula
cela me donne
=AVERAGE(y6,y20,34....,342)(oui j'ai un pas de 14 que je dois garder)
je voudrais pouvoir insérer par exemple après 342,y356
Comment faire ?
merci d'avance.