JJ

Bonsoir , petite question supplémentaire, car j'ai quelques lignes vierges dans mon tableau que je ne veux pas supprimer, puis je écrire ceci dans ta macro:

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
n = n - 1
Else
If Cells(n, 6).Value = ' ' Then
n = n + 1
End If
Next n
End Sub

Merci
JJ