Quelle erreur est signalée au juste ?
Il m'est venu une idée.
Je m'étais établi un modèle de classement du ListObject à l'aide de l'enregistreur de macro, et il m'a engendré des invocations à la méthode Add2 de l'objet SortFields, que j'ai repris. Votre version d'Excel étant plus ancienne, peut être que ça n'existe pas. Enlevez le 2 pour voir.