XL 2016 recherche cellule avec ecriture couleur

Option Explicit
Sub Couleur_x_récupérer()
    Dim c As Range
    On Error Resume Next
    Sheets("Résultat").Range("a:c").Clear
    For Each c In Sheets("Feuil1").Cells.SpecialCells(xlCellTypeConstants, 1)
        If c.Font.Color = 15773696 Then c(1, -1).Resize(, 3).Copy Sheets("Résultat").Range("a" & Rows.Count).End(xlUp)(2)
    Next
End Sub