Sub Nettoie()
Application.ScreenUpdating = False
For L = Range("A65500").End(xlUp).Row To 2 Step -1
If Cells(L, "A").Interior.Color <> vbWhite Then Cells(L, "A").EntireRow.Delete
If Cells(L, "A") = "" Then Cells(L, "A").EntireRow.Delete
Next L
End Sub