Microsoft 365 Tri ligne TCD avec macro

Bonjour

Un TCD qui ne somme qu'un nombre n'est pas réellement un TCD

De plus cette approche un non sens

Normaliser le tableau source par une requête PowerQuery et le TCD basé sur la requête sera automatiquement trié sans besoin de coder...

bonjour Chris,
Des TCD j'en manipule pas mal, tu n'as pas tort mais là c'est juste une simplification que j'adapterai à mon projet.
Je veux juste savoir ce qui bug dans la macro
Merci

J'ai trouvé la réponse sur un autre forum
pour qui ça intéresse la solution :
Sub actu()
' actu Macro
Range("D2").Select
ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotCache.Refresh
Range("A2").Select
Range("A22").Sort Key1:=[$A$2], Order1:=xlDescending, Type:= _
xlSortValues, OrderCustom:=1, Orientation:=xlLeftToRight
Range("E8").Select
End Sub