Copier-Coller sous condition de couleur

Private Sub CommandButton1_Click()

  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
  
  Sheets("Synthèse").Activate ' feuille de destination
  
  Col = "E"                 ' colonne de la donnée non vide à tester
  NumLig = 5                ' début de la ligne à écrire dans la feuille de destination
  With Sheets("Fichier inv")     ' feuille source
  NbrLig = .Cells(500, Col).End(xlUp).Row   'zone à tester
  For Lig = 7 To NbrLig                     'définition du commencement et de la fin de la zone à tester
    If .Cells(Lig, Col).Font.Color = RGB(255, 0, 0) Then      'condition de test : si le texte de la cellule de la colonne E est rouge alors
       .Cells(Lig, Col).EntireRow.Copy                       'copie de la ligne entière
        NumLig = NumLig + 1                 'sélection de la ligne de destination
        Cells(NumLig, 1).Select             '
      ActiveSheet.Paste                     'Coller sur la feuille de destination
    End If
  Next                                      'boucle
  End With                                  'Fin de boucle
    
End Sub