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