Bonjour,
Un exemple dans le fichier joint.
ALT F11 pour ouvrir l'éditeur VBA. Vois module Feuil2 (tcd).
Cdlt.
Option Explicit
Private Sub Worksheet_Activate()
Me.PivotTables(1).PivotCache.Refresh
End Sub
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Me.PivotTables(1).DataBodyRange.NumberFormat = "#,##0_ ;[Red]-#,##0 "
End Sub