Deplacement de cellule en couleur

Sub Macro1()
Dim dest As Range 'déclare la variable dest (DESTination)
Dim cel As Range 'déclare la variable cel (CELlule)
 
With Sheets("Z1A") 'prend en compte l'onglet "Z1A"
    For Each cel In .Range("B1:B" & .Range("B65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées de la colonne B
        If cel.Interior.ColorIndex = 6 Then 'condition : si la couleur de la cellule est jaune (couleur à adapter car il y a plusieurs jaunes...)
            Set dest = Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1, 0) 'définit la variable dest
            cel.Copy Destination:=dest 'copie et colle la cellule cel
        End If 'fin de la condition
    Next cel 'prochaine cellule éditée de la colonne B
End With 'fin de la prise en compte de l'onglet "Z1A"
 
With Sheets("Z1B") 'prend en compte l'onglet "Z1B"
    For Each cel In .Range("B1:B" & .Range("B65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées de la colonne B
        If cel.Interior.ColorIndex = 6 Then 'condition : si la couleur de la cellule est jaune (couleur à adapter car il y a plusieurs jaunes...)
            Set dest = Sheets("Feuil1").Range("B65536").End(xlUp).Offset(1, 0) 'définit la variable dest
            cel.Copy Destination:=dest 'copie et colle la cellule cel
        End If 'fin de la condition
    Next cel 'prochaine cellule éditée de la colonne B
End With 'fin de la prise en compte de l'onglet "Z1B"
 
End Sub