Bon.. tout fonctionne, mais je n'arrive pas vraiment à savoir pourquoi. Merci pour vos conseils en tout cas, je pense que cela a servi tout de même.
Je n'ai quasiment rien fait au code, aux feuilles.....
De plus, activer wsData s'est fait facilement alors qu'hier, même si je l'écrivais au même endroit qu'aujourd'hui, cela ne fonctionnait pas.
Bref j'ai peur d'avoir réussi sans vraiment avoir compris la source de l'erreur, même si je crois avoir bien compris le principe et les règles.
Questions subsidiaires :
-Est-ce possible de créer plusieurs TC en utilisant seulement ces 2 lignes ?
Set PCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=rngPT.Address)
Set PT = PCache.CreatePivotTable(TableDestination:="Calculation!R1C1", TableName:="TCD_one")
-Comment procéder pour ceci ?
Ca change quoi ?
Il colle ses données et à l'activation de la feuille TCD tu modifies juste la source et tu actualises...
Même plus de bouton.
eric
Merci d'avance.