fonction colorer copier coller avec condition

Sub Colorelignessiproblemesindicateurs()
Dim Cell As Range 'déclare la variable Cell
Dim dest As Range 'déclare la variable dest
 
For Each Cell In Range("F1:F15") 'boucle sur toutes le cellules de la plage F1:F15
    If Left$(Cell.Value, 4) = "Code" Then 'condition 1 : si les 4 premiers caractères de la cellule sont "Code"
        With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
            If .Range("F1").Value = "" Then 'condition 2 : si F1 est vide
                Set dest = .Range("A1") 'définit la variable dest (A1)
            Else 'sinon (si F1 n'est pas vide)
                Set dest = Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest (la première ligne vide rencontrée)
            End If 'fin de la condition 2
        End With 'fin de la prise en compte de l'onglet "Feuil2"
        '**************************************************************************************
        'inverser les deux lignes en dessous si on désire que la ligne copiée ne soit pas rouge
        '**************************************************************************************
        Cell.EntireRow.Interior.Color = vbRed 'colore la ligne en rouge
        Cell.EntireRow.Copy Destination:=dest 'copie la ligne dans l'onglet Feuil2
    Else 'sinon (si les 4 premiers caractères de la cellule sont différents de "Code"
        Cell.EntireRow.Interior.Color = vbWhite 'colore la ligne en blanc
    End If 'fin de la condition 1
Next Cell 'prochaine cellule de la plage F1:F15
End Sub