Filtrer un TCD depuis une Forme

Bonjour,

Je souhaiterais filtrer un TCD depuis une forme selectionnée-activée parmi d'autres.

Les shapes sont dans l'onglet : DATAS

Le TCD dans l'onglet TCD.

Le résultat viendrai s'afficher en activant la feuille demandée (Ici : feuille PRESENTATION)

Pas de souci pour une SHAPE mais je ne souhaiterais pas creer une macro pour chacune des shapes.

Je ne suis pas arrivé avec "For each shapes in active worksheet"

Je joint le fichier, pour plus de compréhension.

Merci de votre aide !

Bonjour

Sub Macro9()
  Sheets("TCD").PivotTables("TCD").PivotFields("CHOIX").ClearAllFilters
  Sheets("TCD").PivotTables("TCD").PivotFields("CHOIX").CurrentPage = Application.Caller
  Sheets("PRESENTATION").Select
End Sub

Merci beaucoup Yal,

L'application caller, il faut que je m'y mette.

Elle est trés utile.