Masquer/Afficher des lignes par activation de la feuille

Bonjour,

J'aimerais afficher ou masquer des lignes dans Excel en activant la feuille selon une condition: si dans la colonne A (exemple A2 à A100) la cellule est vide : ne pas afficher la ligne. Afficher la ligne dans le cas contraire. La feuille n'a pas de validation de données et n'est que pour consultation et impression. Les valeurs contenues dans la colonnes A proviennent d'une autre feuille.

Je commence en VBA, alors...
J'ai trouvé ça dans un blogue. Je l'ai modifié mais il y a erreur dans le programme:

Private Sub Worksheet_Activate()
Dim plage As Range, c As Range
Set plage = Union([A2:A30], [A31:A101])
For Each c In plage
If c.Value = "" Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
plage = Nothing
End Sub

Ça plante. Pouvez-vous m'aider?