Fitre Tableau croisée dynamique avec VBA

Bonjour tout le monde, j'essaie de faire un filtre de toute les transactions d'un client avec une commande VBA. Dans la feuille Etat de compte je veux afficher, lorsque je rentre manuellement un intervalle de date, les transactions qui ont eu lieu a ces date la avec le numéro du client et son nom ? Et ce, a l'aide d'un bouton que je vais créer !! je joins le fichier excel. C'est un hebdo . J'ai déjà un code a l’intérieur mais j'ai du mal a le faire fonctionner. Merci

Bonjour,

voici un exemple à adapter,

        'On réinitialisee le champ
        For Each pvtItem In Worksheets("TCD").PivotTables("TCD1").PivotFields(Field).PivotItems
            pvtItem.Visible = True
        Next

        'On applique le filtre désiré
        For Each pvtItem In Worksheets("TCD").PivotTables("TCD1").PivotFields(Field).PivotItems
            If pvtItem.Name = Item Then
                pvtItem.Visible = True
            Else
                pvtItem.Visible = False
            End If
        Next