XL 2016 Rechercher les valeur en fonction de la couleur

Sub Copy_Tot()
    Worksheets("Feuil2").Cells.Clear
    With Worksheets("Feuil1")
        .[A:B].AutoFilter
        lr = .Cells(.Rows.Count, 1).End(xlUp).Row
        .Range("$A1:$B" & lr).AutoFilter _
            Field:=1, Criteria1:=vbRed, Operator:=xlFilterFontColor
        .Range("$A2:$B" & lr).Cells.SpecialCells(xlCellTypeVisible).Copy
        Worksheets("Feuil2").[A1].PasteSpecial xlPasteValuesAndNumberFormats
        .[A:B].AutoFilter
    End With
End Sub