Copier et coller 2 colonnes non contigues

Bonjour,

Je souhaiterais copier 2 colonnes (dont la taille peut varier) qui ne sont pas contigues, pour ensuite les coller.

Mon problème est que quand je copie les colonnes A et D (à partir de la ligne 10), lorsque je les colle, les colonnes B et C apparaissent également:

'Copie la plage

Range("A10", "D10").Select

Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

'Ouvre le fichier ou l'on colle les données

Workbooks("TEST1.xlsx").Activate

'Colle la 1e plage

With Sheets("Feuil1").Range("C1").End(xlUp)(2)

.PasteSpecial Paste:=xlValues, Transpose:=False

End With

Voilà si qqun peut m'aider, merci bcp

Bonjour JJ

Voici le code modifié

Sub Test()
  Dim DLig As Long
  ' Récupérer la dernière ligne du tableau
  DLig = Range("A" & Rows.Count).End(xlUp).Row
  ' Copie la plage
  Range("A10:A" & DLig & ",D10:D" & DLig).Copy
  'Ouvre le fichier ou l'on colle les données
  Workbooks("TEST1.xlsx").Activate
  'Colle la 1e plage
  With Sheets("Feuil1").Range("C1").End(xlUp)(2)
  .PasteSpecial Paste:=xlValues, Transpose:=False
  End With
End Sub

A+

Ca marche nickel super ! Merci

J'ai une autre question, c'est globalement le même problème sauf que je dois copier deux colonnes qui peuvent s'allonger et qui ont leur 1es cases en G40 et I40 (à coller en parallèles encore). Les cellules sont en partie vides au dessus.

Je n'arrive pas à trouver la longueur de ces colonnes pour ensuite m'en servir pour copier les cellules qu'il faut.

Si tu pouvais m'aider pour ce dernier truc.