Macro pour copier un ensemble de colonne à la suite du fichier

Bonjour,

J'essaie de faire une macro sur ce document pour que quand je clique sur le bouton les colonnes F à I soit collé a partir de la case sélectionnée. Je suis dessus depuis hier et j'arrive a chaque fois à collé les colonnes à la suite mais quand je veux collé une troisième fois elle s'insère entre les deux. Je souhaite aussi que les formules des cellules restent comme les sous-totaux. Pouvez-vous m'aider?

Je joint le fichier type.

Merci de votre aide

Bonjour,

à tester,

Sub Macro2()
col = Cells(2, Columns.Count).End(xlToLeft).Column + 3
Columns("F:I").Copy Cells(1, col)
End Sub

Merci je vais pouvoir finir mon tableau avec ça.

Merci beaucoup

Juste une petite amélioration possible. Si je souhaite que le tableau qui soit collé soit vierge et que j'ai ces mêmes colonnes dans un onglet data que je veux collé à la suite dans ma feuil1 qu'elle serait les modifications à faire à ton code?

Merci beaucoup

re,

à tester,

Sub Macro2()
col = Cells(2, Columns.Count).End(xlToLeft).Column + 3
Sheets("data").Columns("F:I").Copy Cells(1, col)
End Sub

Magnifique c'est exactement ça.

Merci pour ce retour, au plaisir!

Bonjour Gils987 ,i20200

A tout hasard j'avais fait cela où je reprenais tes effacements de contenus, pas très joli, mais cela marchait

Je te l'envoie quand même

Bon courage et bonne soirée à tous