Discussion :

[QFrancky69]

Merci pour vos réponse.
@Menhir:
ça marche bien mais ma question portait sur l'indice.
Du coup:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Columns(5).Copy 'colonne E
Columns(5).Insert'colonne E

Marche bien pour moi.

Bonjour,
je voudrais insérer les colonnes copiées à la suite de mes dernières colonnes (à droite).

[BENNASR]

bonsoir
ta demande n'est pas claire au moins pour moi
peut être une piste et encore pour bouger la discussion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub copierCol()
    Dim Col As Integer
    Col = Cells.Find("*", , , , xlByColumns, xlPrevious).Column
    Columns(Col).Copy
    Columns(Col + 1).PasteSpecial xlPasteFormulas
End Sub

[Menhir]

je voudrais insérer les colonnes copiées à la suite de mes dernières colonnes (à droite).

Quelle colonne veux-tu copier ?
Comment reconnait-on qu'une colonne est la dernière ?
Pourquoi "mes dernières colonnes" au pluriel ? Comment peut-il y avoir plus d'une dernière colonne ?