Sub EnleverLignesVides()
Dim i&, fin
Application.ScreenUpdating = False
For i = 176 To 5 Step -1
If Cells(i, 2).Interior.ColorIndex = 15 Or i = 9 Then GoTo 1
If Cells(i, 6).Value = 0 Then Rows(i).Delete
1 Next i
fin = Feuil2.Range("D65536").End(xlUp).Row
For i = fin To 5 Step -1
If Cells(i, 2).Interior.ColorIndex = 15 And Cells(i - 1, 2).Interior.ColorIndex = 15 Then Rows(i).Delete
Next i
End Sub