[porcinet82]

Salut JJ,

Comme tu peux le constater, je ne suis pas pierrejean, mais bon je me permet de te repondre, et je pense qu'il ne m'en voudra pas.

Deux possibilité s'offre a toi, soit tu modifies comme ceci:

Sub test()
Dim fin As Integer, n As Integer
fin = Range('A1').End(xlDown).Row
For n = 1 To fin Step 1
    If Cells(n, 1).Interior.ColorIndex = 3 Then
        Rows(n).Copy Destination:=Rows(fin + 1)
        Rows(n).Delete
        n = n - 1
    End If
Next n
End Sub

Soit tu mets (et c'est ce qui est mieux) :

Sub test_v2()
Dim fin As Integer, n As Integer
fin = Range('A1').End(xlDown).Row
For n = fin To 1 Step -1
    If Cells(n, 1).Interior.ColorIndex = 3 Then
        Rows(n).Copy Destination:=Rows(fin + 1)
        Rows(n).Delete
        n = n - 1
    End If
Next n
End Sub

@+