Microsoft 365 Tri ligne TCD avec macro

[GOLE]

Bonjour le forum,
J'ai une table de données sur une feuille
Sur l'autre feuille un TCD où j'ai une macro (réalisée par enregistreur de macro)qui doit actualiser et trier par ordre décroissant la ligne de nombres
Ma macro bug au niveau du tri

Ci-joint le fichier
Merci de votre aide

 

[chris]

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...

 

[GOLE]

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

 

[GOLE]

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