supprimer lignes des cellules pas en couleurs

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

Sub Test() ' non teste
Dim cell As Range, i 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

Sub supprligne(Feuille$, Plage$, Couleur As XlColorIndex)
Dim i&
For i = Sheets(Feuille).Range(Plage).Rows.Count To 1 Step -1
If Sheets(Feuille).Cells(i, 1).Interior.ColorIndex = Couleur Then
Sheets(Feuille).Cells(i, 1).EntireRow.Delete
End If
Next i
End Sub

Sub main()
supprligne "Feuil2", "A1:A5", xlColorIndexNone
supprligne "Feuil4", "A1:A5", xlColorIndexNone
supprligne "Feuil7", "A1:A5", xlColorIndexNone
End Sub