Intitulé identique dans plusieurs TCD

Bonjour le forum,

J'ai une feuille de restitution de données dans laquelle j'ai plusieurs TCD.
Je voudrais que lorsque je sélectionne un intitulé d'un TCD, les autres TCD "suivent" sans intervention manuelle.
La complexité réside dans le fait que je veux également cacher les en-têtes des TCD.
J'ai essayé avec "Private Sub Worksheet_Calculate()", mais le programme boucle sur lui-même puisqu'il se trouve constament en recalcul.

Merci pour votre aide