Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELulle)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim dest As Range 'déclare la variable dest (DESTination)
dl = Range("A65536").End(xlUp).Row 'de'finit la variable dl
'boucle sur toutes le lignes éditée de la colonne 1 (en partant de la dernière)
For x = dl To 1 Step -1
'condition : si la cellule a été colorée (peu importe la couleur)
If Not Cells(x, 1).Interior.ColorIndex = xlNone Then
With Sheets("Feuil2") 'tu adapteras le nom de l'onglet où se fait la copie
Set dest = .Range("A65536").End(xlUp).Offset(1, 0) 'éfonot la variable dest
End With
Cells(x, 1).EntireRow.Cut Destination:=dest 'coupe et colle la ligne
End If 'fin de la condition
Next x 'prochaine cellule de la colonne 1
End Sub