Sub Test() ' non teste
Dim cell As Range, i As As Long, j as byte, Feuilles
Feuilles=Array(2,4,7)
Application.ScreenUpdating = False
'ci dessous nb de ligne concernées
For j=0 to 2
For i = 500 To 1 Step -1
For Each cell In Sheets(Feuilles(j)).Rows(i)
If Sheets(Feuilles(j)).cell.Interior.ColorIndex = xlNone Then Sheets(Feuilles(j)).Rows(i).Delete
Next
Next i
Next j
End Sub