Copier/Coller de plages non contiguës

Bonjour à tous,

Tout d'abord, très bonne année et meilleurs vœux à tous.

Je me permets de vous contacter aujourd'hui pour une petite question toute bête (et un peu gênante).

Je bloque sur une formule de C/C pour des plages non contiguës. J'ai la première partie du code, cependant, en cherchant à droite à gauche, je ne comprends pas vraiment la syntaxe utilisée à inclure dans mon code pour me permettre le C/C de ces plages.

Ci-dessous mon code actuel, ou je souhaiterais la possibilité de copier de la colonne 6 à 8 par exemple (en omettant les colonnes 4 et 5) :

Set Plage = Sheets("PDC").Range(Cells(LigneLot, ColonneLot), Sheets("PDC").Cells(Derlig, 3))

Et ci-dessous le code que j'ai trouvé qui devrait me permettre de faire des plages non contiguës :

 Range("A10:A" & DLig & ",D10:D" & DLig).Copy

Je suppose que c'est en rapport avec le ",D10", la virgule doit être importante ?

Merci d'avance pour votre aide !

Rebonjour,

Une solution temporaire que j'ai trouvé mais peut être pas la plus optimisée. Etablir en avance toutes les plages que je souhaites copier et les définir sous

Plage1, Plage2, Plage3 puis les copier à chaque emplacements.

With ThisWorkbook
            Set Plage1 = Sheets("PDC").Range(Cells(NumL, NumC), Sheets("PDC").Cells(20, 3))
            Set Plage2 = Sheets("PDC").Range(Cells(Numx, NumZ), Sheets("PDC").Cells(20, 5))

            Plage1.Copy
            Workbooks("Base de données - WIP.xlsm").Sheets("PDC").Activate
            Worksheets("PDC").Cells(3, 1).Select
            ActiveCell.PasteSpecial

            Plage2.Copy
            Workbooks("Base de données - WIP.xlsm").Sheets("PDC").Activate
            Worksheets("PDC").Cells(3, 5).Select
            ActiveCell.PasteSpecial
End With