Copier coller

Bonjour,

j'ai un petit soucis lorsque j’essaie de copier coller plusieurs colonnes non consécutives,

le code suivant m'affiche une erreur :

   Worksheets("feuille").Range("B4:D" & ligne_limite, "J4:J" & ligne_limite, "L4:L" & ligne_limite, "M4:M" & ligne_limite).Copy Destination:=Worksheets("Feuil1").Range("B9")

Lorsque je mets moins de ligne à copier il fonctionne par contre, comment peut on faire dans ce cas pour qui copie le bon nombre de ligne voulu svp?

MERCI

Bonsoir

Si ton code fonctionne avec moins de ligne, essaye en déclarant

Dim ligne_limite as long

Amicalement

Nad

pardon, ce que je voulais dire c'est qu'il fonctionne avec moins de colonne à copier

Re

Essaye

With Sheets("feuille")
Union(.Range("B4:D" & ligne_limite), .Range("J4:J" & ligne_limite), .Range("L4:M" & ligne_limite)).Copy Sheets("Feuil1").Range("B9")
End With

Nad