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