Dim Flag As Boolean
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Not Flag Then
Flag = True
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("PRODUIT2"). _
AutoSort xlDescending, "Somme de ca"
End If
Flag = False
End Sub