Recherche puis masquer ligne non trouvées

Public Sub DemasqueLignes()  
ActiveSheet.Rows("1:" & Rows.Count).EntireRow.Hidden = False  
End Sub

Private Sub btMasquer_Click()
Const co = "A"
Const lideb = 2
Dim mot As String, li As Long, lifin As Long, celmot As Object, premli As Long
mot = InputBox("donner un nom")
If mot = "" Then Exit Sub
 ' dernière ligne colonne co
 lifin = ActiveSheet.Range(co & Rows.Count).End(xlUp).Row
With ActiveSheet.Range(co & lideb & ":" & co & lifin)
  ' première occurence eventuelle de mot
  Set celmot = .Find(mot, , , xlWhole)
  If celmot Is Nothing Then Exit Sub
  ' initialiser premli
  premli = celmot.Row
  Do
    li = celmot.Row
    ActiveSheet.Rows(li).EntireRow.Hidden = True
    ' recherche occurence suivante de mot
    Set celmot = .FindNext(celmot)
  Loop While Not celmot Is Nothing And celmot.Row <> premli
End With
End Sub