[pierrejean]

veux-tu essayer cela qui a le merite d'etre un peu plus concis

Sub test1()
fin = Range('F1').End(xlDown).Row
For n = fin To 1 Step -1
If Cells(n, 6).Interior.ColorIndex = 3 Then
Rows(n).Copy Destination:=Rows(fin + 1)
Rows(n).Delete
End If
Next n
End Sub