Suppression de ligne

Option Explicit

Public Sub ok()
Dim li As Long, lifin As Long, co As Long
Application.ScreenUpdating = False
lifin = Range("A" & Rows.Count).End(xlUp).Row
For li = lifin To 2 Step -1
  For co = 1 To 14 'N
    If Cells(li, co).Value = 0 Or Cells(li, co).Value > 49 Then
      Rows(li).Delete
      Exit For
    End If
  Next co
Next li
End Sub