problème avec code vba pour TCD

Bonjour a tous,

J'ai créé un tableau croisé dynamique avec comme étiquettes de ligne le mois d'une date et la semaine de cette même date.

Somme de OTD
Mois Semaine Total
1 90,8%
2 91,6%
3 90,3%
4 89,0%
5 18 93,4%
19 84,0%
20 75,6%
21 93,1%
Total général 89,8%


Je souhaiterais via un code vba ne déployé la semaine que sur le dernier mois, mais la macro que j'ai créé plante et je n'arrive pas à comprendre pourquoi.

Quelqu'un pourrait-il me dire d'ou viens mon erreur SVP

ci dessous mon code:
Sub macro7()
Sheets("TCD Client").Select
Dim ZZ As String
With ZZ = Sheets("TCD Client").Range("H1").Value
'récupere la valeur de H1 qui est le mois d'une date au format texte
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois")
.ClearAllFilters
.PivotItems("(Blank)").Visible = False
.PivotItems("zz").ShowDetail = True
'Problème avec la ligne de dessus
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Mois")
.ClearAllFilters
.PivotItems("(Blank)").Visible = False
End With
End Sub

Je vous remercie par avance pour toute aide

cordialement

Toine38