Filtre et trie sur tcd vba

Bonjour,


J'obtiens l'erreur 1004 sur le code suivant :

      Sheets("c1").PivotTables("Tcd arret c1").PivotFields("Libelle"). _
        AutoSort xlDescending, "Somme de Perte fiab", ActiveSheet.PivotTables( _
        "Tcd arret c1").PivotColumnAxis.PivotLines(1), 1
    

Si je commente cette ligne, j'ai la même erreur sur la ligne de code suivante :

 Sheets("c1").PivotTables("Tcd arret c1").PivotFields("Libelle"). _
        PivotFilters.Add Type:=xlTopCount, DataField:=ActiveSheet.PivotTables( _
        "Tcd arret c1").PivotFields("Somme de Perte fiab"), Value1:=10

Ces 2 bouts de code proviennent de l'enregistreur de macros.

Ma première instruction sert a trier la colonne "Somme de perte fiab" dans l'ordre décroissant.
La seconde sert à afficher seulement les 10 premieres lignes du tableau.

Le nom de ma feuille et le nom du tableau sont corrects.

Avez vous déjà rencontrés ce problème ? Ou connaissez vous des autres solutions pour effectuer des tris sur un tcd et afficher seulement les 10 premières valeurs ?

Merci d'avance pour tous vos contributions :)