Macro Masquer / Afficher des lignes sur Ecxel

Bonjour,

Je suis face à un petit problème de Macro :
J'aimerais, pour les lignes 34 à 42 de ma feuille excel, que :
- Chaque fois que je met à jour mon TCD :
- Les lignes masquées sur ma feuille réapparaissent, puis,
- Les lignes pour lesquelles la colonne A est vide se masquent à nouveau.

Mon code actuel ne fonctionne pas tout à fait :

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim cel As Range
For Each cel In Range("34:42")
If cel.EntireRow.Hidden = True Then
cel.EntireRow.Hidden = False
End If
If cel = "" Then
cel.EntireRow.Hidden = True
End If
Next
End Sub

Merci d'avance pour vos conseils !