copie les valeurs col B a la suite de la colA

[fid]

bonsoir le forum,

je veux copier les valeurs des colonnes C et D
à la suite des cols A et B
puis celles des cols E et F
à la suite des cols A et B
puis celles des cols G et H
à la suite des cols A et B

j'y arrive pour les cols C et D
mais ensuite, les copies suivantes ne se font pas correctement car elles écrasent les valeurs de C et D collées

comment redonner le bon "range" après la première copie ?

voici mon code :

Sub Copie_col_dessous()
'
' Copie_col_dessous Macro


With Sheets("couleurs")

DerligA = .Range("A65536").End(xlUp)(2).Row
DerligB = .Range("B65536").End(xlUp)(2).Row


End With

'
    Range("C2:C" & DerligB).Select
    Selection.Cut
    Range("A" & DerligA).Select
    ActiveSheet.Paste
    Range("D2:D" & DerligB).Select
    Selection.Cut
    Range("B" & DerligB).Select
    ActiveSheet.Paste
    Range("E2:E" & DerligA).Select
    Selection.Cut
    'comment resélectionner la bonne cellule A après ?-----
    Range("A" & DerligA).Select
    ActiveSheet.Paste
    Range("F2:F" & DerligB).Select
    Selection.Cut
    Range("B" & DerligB).Select
    ActiveSheet.Paste
    Range("G1:G" & DerligA).Select
    Selection.Cut
    Range("A" & DerligA).Select
    ActiveSheet.Paste
    Range("H1:H" & DerligB).Select
    Selection.Cut
    Range("B" & DerligB).Select
    ActiveSheet.Paste
    Range("A1").Select

End Sub

ci-joint le fichier exemple
d'avance merci pour votre aide

 

[xhudi69]

Re : copie les valeurs col B a la suite de la colA

Bonsoir fid, le Forum

en retour ton fichier, si cela convient.

@+

 

[fid]

Re : copie les valeurs col B a la suite de la colA

Merci !
cela semble impeccable
je vais l'appliquer à mon grand fichier
bonne soirée