Re
Il y a effectivement une anomalie, J'ai mis un tria alpha puis remis le tri décroissant par nombre de PDl et cela marche...
Essaye d'enlever la fin de la ligne Autosort
, ActiveSheet.PivotTables( _
"Tableau croisé dynamique1").PivotColumnAxis.PivotLines(20), 1)