Supprimer toute les lignes dont une cellule à un mot néant

Option Explicit

Const lideb = 2
Const cle = "néant"

Public Sub SuppLignes()
Dim lifin As Long, li As Long, obj As Object
Application.ScreenUpdating = False
lifin = Cells.Find("*", , , , xlByRows, xlPrevious).Row
For li = lifin To lideb Step -1
  Set obj = Rows(li).Find(cle, , , xlWhole)
  If Not obj Is Nothing Then Rows(li).Delete
Next li
Application.ScreenUpdating = True
End Sub