Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Range("B3").Select
Selection.Sort Order1:=xlAscending, Type:=xlSortLabels, OrderCustom:=1, Orientation:=xlTopToBottom
Call SupprimerLesBoutons
Call AjouterLesBoutons
End Sub