Affichage Lignes

Bonjour,

j'ai fait ce code, qui fonctionne très bien, grâce à M. Mike_31.
Il s'active avec un bouton VALIDER.

Sub masquer_ligne_Vide()
Dim cel As Range
For Each cel In Range("A1:A100")
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

Maintenant, j'aimerais, un code qui me permetterait de remettre les lignes masquées à leur dimension originales de 18, avec un bouton ANNULER.
Quelqu'un pourrait m'aider s.v.p.