Incrementation des Colonnes en gardant les formules

Bonsoir à tous,

dans l'exemple ci-inclus j'ai un tableau et je veux créer un code qui me permet de copier la colonne D et qui me donne la colonne E comme résultat avec les mêmes formules et je quand clique une autre fois sur le bouton qui contient le code il me donne la colonne F avec les mêmes formules et ainsi de suite

Merci d'avance

Bonjour,

Une proposition

A+

Bonsoir frangy ,

Merci pour ta réponse c'est exactement ce que je veux, il reste juste une petite chose que tu as oublié c'est que dans la colonne insérée cad la colonne E,,, la cellule E7 doit égale la cellule D8 de la colonne D et la cellule E9 doit égale la cellule D10 de la colonne D et ainsi de suite

Merci d'avance

Code modifié :

Sub Copier()
Dim C As Range
    Set C = Cells(6, Columns.Count).End(xlToLeft).Offset(, 1)
    Range("D6:D21").Copy C
    C.Offset(1).Resize(4).ClearContents
    C.Offset(1).FormulaR1C1 = "=R[1]C[-1]"
    C.Offset(3).FormulaR1C1 = "=R[1]C[-1]"
    Application.CutCopyMode = False
End Sub

A+

re frangy,

Merci beaucoup c'est exactement ce que je voulais