Macro pour copier 3 colonnes à chaque fois à droite du dernier élément

Bonjour (ou Bonsoir),

Je remercie déjà toutes les personnes qui vont m'aider où ne serait-ce que essayer en prenant le temps de lire ma petite problématique. Elle n'est pas si complexe

mais pour un novice en VBA elle m'en fait baver. J'ai un fichier excel pour lequel je souhaite ajouter une macro qui copie 3 colonnes et qui les colles à droite de la dernière colonne utilisé. A chaque fois que j'appui sur le bouton de la macro il est censé coller les éléments 3 cran plus loin que la fois précédente.

Sub copypast()

    Columns("I:K").Select
    Selection.Copy
    Range("L1").Select
    ActiveSheet.Paste
End Sub

L'idée serait que pour la cellule L1 l'endroit où je colle mes colonnes soit une variable dont la valeur est la cellule juste à droite de la dernière colonne utilisé.

J'ai essayé plusieurs chose mais en vain

En espérant pouvoir trouver de l'aide.

Encore mille merci à tout ceux qui vont prendre leur temps d'essayer de m'aider.

J'ai trouvé la solution entre-temps. Merci quand même

Sub copypaste()

    dercol = Cells(9, Cells.Columns.Count).End(xlToLeft).Column + 1

    Columns("I:K").Select
    Selection.Copy
    Cells(1, dercol).Select

    ActiveSheet.Paste

End Sub

Bonjour Mark Antoine et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

Pour le code, vous pouvez faire plus optimisé

Sub CopyPaste()
  Dim DerCol as Long
  DerCol = Cells(9, Cells.Columns.Count).End(xlToLeft).Column + 1
  Columns("I:K").Copy Destination:=Cells(1, DerCol)
End Sub

Nota : Pensez à définir vos variables

Merci de votre participation

Cordialement