Sub Macro1()
'
Dim cell As Range
For Each cell In Sheets("Feuil1").Range("A5:A1000")
If cell.Interior.Color = 5296274 Then
cell.Copy
Sheets("Feuil2").Select
Sheets("Feuil2").Cells(Range("H65535").End(xlUp).Row + 1, 8).Select
ActiveSheet.Paste
End If
Next cell
End Sub