Bonjour,
1- une astuce pour s'assurer que toutes les données ajoutées au fur et à mesure puissent être prises en compte par une formule à placer dans Insertion Noms, par exemple, si ta base commence en A1 :
DECALER($A$1;;;NBVAL($A$1:$A$2000);NBVAL($A$1:$X$1))
et nommer la formule par exemple Tablo - et avoir des étiquettes - ton tableau pourra recevoir jusqu'à 2000 lignes et acceptera ajout de colonnes jusqu'à X
2- dans Options du Tableau, prévu à cet effet, tu peux cocher Actualiser les données à chaque ouverture, et tout s'actualisera à chaque ouverture du classeur
3- et puis cette macro par exemple,si tu souhaites vraiment passer par une macro - actualiser tous tes tcd de toutes les feuilles (en sachant qu'il y a d'autres macros avec des événements à chaque ouverture du classeur ou à chaque changement de donnés dans le tcd,ect....)
Sub ActualiserTCD()
Dim Tcd As PivotTable
Dim Feuille As Worksheet
Application.ScreenUpdating = False
For Each Feuille In Worksheets
For Each Tcd In Feuille.PivotTables
Tcd.RefreshTable
Next
Next
End Sub
Celeda