Essai ça:
Sub delete_ligne()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 6600
If (Cells(i, 14) = 0 And (Cells(i, 11) = 2 Or Cells(i, 11) = 3 Or Cells(i, 11) = 4 Or Cells(i, 11) = 5 Or Cells(i, 11) = 6)) Then
Cells(i, 1).EntireRow.Delete
i = i - 1
End If
Next
Application.ScreenUpdating = True
End Sub
A recopier dans un module Excel (c'est bourin, fait en dix secondes mais ça doit fonctionner)