Parametrage automatique pivotitem dans tableau croise dynamique

Bonjour à toutes et à tous,

je cherche à paramétrer automatiquement des Tableaux croisés dynamiques dans un classeur Excel, à partir d'une valeur inscrite dans une cellule ...

j'essaie d'utiliser le code suivant ... s'il voulait bien marcher :

Sub Macro1()
'
Dim pi As PivotItem
'recup de la date a afficher dans le tcd
Dim MAJdate As String
MAJdate = Range(f1).Value
'déselectition de tous les pivotitem du tcd
    With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields( _
        "date debut intervention")
        For Each pi In .PivotItems
                 pi.Visible = False
        Next pi
    End With
'affichage du pivot item souhaité ...
    With ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields( _
        "date debut intervention")
        .PivotItems(MAJdate).Visible = True
    End With
    
End Sub

enfin ... il me plante un
"erreur d'execution 1004
impossible de définir la propriété visble de la classe pivotitem"

j'ai tourné dans tous les sens, mais là ... c'est plus fort que moi (qui suis un peu faible, il est vrai!)
l'un(e) d'entre vous a t il une idée ???
merci d'avance!

Charly