Dim pt As PivotTable
Sheets("RAPPORT SECOND").Select
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
pt.PivotFields("PRODUIT").AutoSort Order:=xlAscending, _
Field:="PRODUIT"
Next pt
Sheets("RAPPORT RETOUR").Select
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
pt.PivotFields("PRODUIT").AutoSort Order:=xlAscending, _
Field:="PRODUIT"
Next pt
Sheets("PARETO SECOND").Select
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
pt.PivotFields("Somme de $ SECOND").AutoSort xlDescending, "Somme de $ SECOND"
Next pt
Sheets("PARETO RETOUR").Select
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
pt.PivotFields("Somme de $ SECOND").AutoSort xlDescending, "Somme de $ SECOND"
Next pt