Sub FiltreCouleur()
Dim P As Range
With ActiveSheet.UsedRange
.Rows(1).EntireRow.Insert 'pour fonctionner même si la 1ère cellule est colorée
Union(.Rows(0), .Cells).AutoFilter 1, RGB(255, 0, 32), Operator:=xlFilterCellColor 'filtre couleur
On Error Resume Next 'si aucune SpecialCell
Set P = .Columns(1).SpecialCells(xlCellTypeVisible)
.Rows(0).EntireRow.Delete 'ôte le filtre en même temps
P.Copy .Cells(2, 2) 'colle en B2
'P.Clear 'efface
P.Delete xlUp 'supprime
End With
End Sub