Etirer automatiquement une formule

Bonjour,

Je viens à nouveau chercher de l'aide auprès de vous pour une toute petite macro.

Dans mon tableau (pièce jointe), je souhaite automatiquement étirer les formules de la dernière colonne contenant des données.

En gros, au lancement de la macro, je souhaite copier les formules de la colonne "Formule +3" dans la colonne "Formule +4". Au prochain clic, copier les formules de "Formule +4" à "Formule +5". Etc.

J'ai beau avoir cherché et essayé plusieurs exemples dispo sur le net .. je n'ai pas réussi à adapter !

Merci par avance !

Cordialement,

Kamoon

Bonjour

Code du Bouton de commande

Private Sub CommandButton1_Click()
 Application.ScreenUpdating = False
 Range("A2").Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.Offset(0, 1).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.Select
End Sub

Cordialement