Bonjour,
Myta (il me semble que c'était Myta,sinon pardonnez-moi),avait fait cette macro pour Pias, si tu ajoutes un bouton, tu peux essayer de voir si cela correspond à ce que tu veux faire :
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