Macro sur Excel

Bonjour,

Je suis confronté au TCD avec VBA. Je souhaiterai lorsque je choisie un nombre dans une liste déroulante que celà agisse directement sur le TCD.

Pour le moment voici mon code, sélectionner la page où est présent le TCD et sélectionner le numéro 10. J'aimerai donc que le tcd soit directement mit à jour lorsque je sélectionne un nimbre dans la liste présente en A1.

' Renseigner le N° d'entrepôt
Sheets("TCD In").Select
Range("C2").Select
ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Ent In"). _
CurrentPage = Range("10").Select
End Sub

Je vous remercie par avance si vous avez une idée pour résoudre cette énigme.
A bientôt