Merci Chris,

Je fais ça ce soir !

Bonjour le forum !

En attendant l'expertise, je vais tenter de vous expliquer avec quelques exemples ce que j'ai tenté de faire et ce que ça donne au final.

J'ai mis dans VBA dans des modules les commandes suivantes :

Module regions :

Sub STHREG_PACA()
'Synth 10116 Choix régions
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "Région PACA"
End Sub

Et ce répété 8 fois (régions différentes)

dans un module : region_Sud_Ouest

Sub STHRENT_14()
'Synth 10116 Choix entrepôt SUD OUEST
Sheets("Synth_Ent").Select
ActiveSheet.PivotTables("Synth_NTRPT").PivotFields("Nom_Ent"). _
    CurrentPage = "Bordeaux"
End Sub

Cela répété 13 fois (villes différentes)

et dans 7 autres modules, la même chose que dans le module Region_Sud_Ouest, soit au total 93 villes réparties dans les 8 régions.

Et pour finir dans un module Admin

Sub STHRENT_ADMIN1()
'Synth 10116 Choix entrepôt PACA
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Sup_30"). _
    CurrentPage = ">30"
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "(Tous)"
End Sub
Sub STHRENT_ADMIN2()
'Synth 10116 Choix entrepôt PACA
Sheets("Synth_Nat").Select
ActiveSheet.PivotTables("Synth_REG").PivotFields("Sup_30"). _
    CurrentPage = "(Tous)"
ActiveSheet.PivotTables("Synth_REG").PivotFields("Région"). _
    CurrentPage = "(Tous)"
End Sub

Ce qui se passe : il semble que dès lors que je sélectionne le bouton qui active un TCD qui pointe sur une ville qui n'a pas de données, le TCD affiche n'importe quoi et même si je filtre sur le TCD manuellement. de plus si je j'active une autre ville à l'aide d'un bouton différent je retrouve les data incohérente de la sélection précédente.

exemple si j'active Charleville Mézière qui ne contient pas de data, le TCD affiche les data de Villeneuve et si ensuite je sélection Bordeaux je continue de voir les data de Villeneuve.

espérant être clair dans mes explications.

Bien cordialement

Zorbrax !