Macro Sélection TCD avec adresse et nom variable

Bonjour,

Je souhaite créer une macro toute simple, qui permet de sélectionner et d'afficher un TCD.

Rien de bien compliqué à priori me direz-vous

Je m'explique: j'ai une dizaine de fichiers Excel contenant chacun une dizaine d'onglet avec 1 TCD par onglet

Le but de la macro est de faciliter la navigation pour l'utilisateur afin qu'il n'ai qu'à cliquer sur un bouton (cellule A1) afin que le TCD de l'onglet actuel s'affiche. Le problème est que le TCD peut très bien être en cellule AA100 comme en cellule AB150... suivant si l'utilisateur à rajouté des lignes ou des colonnes.

L'option de sélectionner une adresse de cellule est à bannir vu que les adresses de mes TCD sont variables et l'option de sélectionner directement un TCD via son nom est également à proscrire les noms de mes TCD étant variables également.

Existe il une commande pour lister les noms des TCD sur un onglet actif pour ensuite aller les sélectionner du type :

Sub go_tcd()

ActiveWindow.FreezePanes = False

Dim ONGLET As Worksheet
Set ONGLET = ActiveWorkbook.ActiveSheet

Dim TCD As PivotTable
Set TCD = ONGLET.PivotTables(1).Name

TCD.Adress.select

End Sub

Merci beaucoup pour votre aide et votre expertise 8)

Thibault

Pour info après tests, solution trouvée:

PivotTables(1) permet de sélectionner le seul et unique TCD sur la feuille quelque soit son nom

TableRange1(1, 6).Activate me place en ligne 1 colonne 6 sur mon TCD ce qui est au poil

A+

Sub go_tcd()
ActiveWindow.FreezePanes = False

Dim TCD As PivotTable
Set TCD = ActiveWorkbook.ActiveSheet.PivotTables(1)

TCD.TableRange1(1, 6).Activate

End Sub