Sub EnleverLignesVidesF()
Dim i&
Application.ScreenUpdating = False
Sheets("Devis").Activate
Range("A5:A176").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
For i = 176 To 5 Step -1
If Cells(i, 6).HasFormula And Cells(i, 6).Value = 0 Then Rows(i).Delete
If Cells(i, 6).Interior.ColorIndex = 3 And Cells(i, 6).Value = 0 Then Rows(i).Delete
If Range(Cells(i, 1), Cells(i + 1, 1)).Interior.ColorIndex = 15 Then Rows(i).Delete
Next i
End Sub