Mise à jour TCD et tri sur élément calculé

[Jacques25]

Bonjour à tous,

Afin d'automatiser un fichier j'aurais besoin de mettre à jour un TCD en automatique et de réaliser un tri croissant sur un élément calculé se trouvant en colonne F.

En passant par l'enregistreur de macro j'obtiens le code suivant :

Sheets("TCD").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh

Range("F12").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nom Fournisseur").AutoSort xlAscending, "Somme de Note", ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotColumnAxis.PivotLines(4), 1

Ce code ne marche pas alors que la manip fonctionne en manuel.
Est ce que quelqu'un peut me dire ce qui ne va pas?

Merci pour votre aide.

Jacques