Probleme compatibilité

Bonjour à tous,

Voilà j'ai un problème avec le fichier ci-joint.

Chez moi il fonctionne très bien mais au boulot non.

Je pense que ca vient du tri

Sur la feuille synthèse j'ai cette ligne

Worksheets("Synthèse").ListObjects("Tableau3").DataBodyRange.Sort Key1:=Range("Tableau3[Désignation]"), Order1:=xlAscending, Header:=xlYes

Le fichier tourne en bouche et me fait planter excel 13 je crois.

Merci pour votre aide.