Créer une nouvelle colonne a la fin d'un tableau

Bonjour,

Je suis débutant en VBA et cela fait plusieurs heures que j'essaie de faire une macro.

J'ai un tableau, et le but est de rajouter une colonne a la fin avec les meme données que la derniere colonne...

J'ai essayé ça :

Sub test2()

Range("C3").Select
Cells(3, Columns.Count).End(xlToLeft).Select

ActiveCell.Offset(0, 1).Select
Selection.EntireColumn.Insert



End Sub

Mais ensuite je n'arrive pas a copier les valeurs ...

Pourriez vous m'aider à résoudre ce problème svp?

Je vous remercie de votre aide

Cordialement

Bonjour,

Un test :

Sub COPIE()
Dim LC%
With ActiveSheet
LC = .Cells(3, .Columns.Count).End(xlToLeft).Column 'Identifie la dernière colonne remplie de la ligne 3
     .Columns(LC).EntireColumn.Copy 'Copie cette colonne
     .Columns(LC + 1).EntireColumn.PasteSpecial xlPasteValues 'La colle sur la colonne d'après
End With
Application.CutCopyMode = False
End Sub

Dans votre code vous allez sur la dernière cellule non vide puis décalez d'une colonne, vous vous retrouvez donc sur une colonne déjà vide, il n'est pas nécessaire d'en insérer une. Ce plus, comme la cellule est vide, vous ne copiez aucune donnée.

Cdlt,

Bonjour,

Je ne sais pas si on gagne du temps d'exécution avec ça à la place ?

Sub COPIE()
Dim LC%
With ActiveSheet
LC = .Cells(3, .Columns.Count).End(xlToLeft).Column 'Identifie la dernière colonne remplie de la ligne 3
     .Columns(LC + 1).EntireColumn.Value = .Columns(LC).EntireColumn.Value 'Copie cette colonne
End With
End Sub