Problème avec la fonction autoFill VBA

Bonjour à tous,

J'ai un problème pour utiliser la fonction AutoFill Destination (bla bla bla),

J'ai un tableau avec une colonne (colonne A) ou j'ai des concentrations, mon but est de faire la moyenne des x premières cellules (6 par exemple) de la ligne A et l'inscrire dans une autre colonne B par exemple, pour cela je fusionne mes (dans mon exemple 6 cases) de la colonne B et y inscrit le résultat de la moyenne. Je voulais utiliser la fonction Selection.AutoFill Destination:=Range(Plage), Type:=xlFillDefault mais j'ai une erreur, j'ai essayer de regarder sur différent forum, mais en tant que débutant, je n'arrive pas à voir d'où provien(nent) la où les erreurs.

Sub CO2()

    lignedeb = InputBox("premiere ligne")
    lignefin = InputBox("dernière ligne")
    colonne = InputBox("colonne")
    nbCellFus = InputBox("nombre de cellule à moyenner")
    x = (lignefin - lignedeb) / nbCellFus
    Range(Cells(lignedeb, colonne), Cells(lignedeb + (nbCellFus - 1), colonne)).Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With

    Selection.Merge
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[" & -colonne + 1 & "]:R[" & nbCellFus - 1 & "]C[" & -colonne + 1 & "])"
    Cells(lignedeb, colonne).Activate
    Plage = Range(Cells((x - 1) * nbCellFus + 1, colonne), Cells((x * nbCellFus), colonne)).Address
    Selection.AutoFill Destination:=Range(Plage), Type:=xlFillDefault
End Sub

En esperant ne pas avoir été trop brouillon dans mes explications,

Merci d'avance

Bonjour

L'absence de fichier joint est souvent la cause de l'absence de réponse.

Cordialement