Argument ou appel de procédure incorrect

Bonjour,

J'ai un problème avec une fonction VBA,

J'ai un classeur Excel dans lequel, une des feuilles (Delivered TCD) contient un TCD. Ne voulant pas utilisé le filtre par défaut du TCD, j'ai créé une liste déroulante avec les valeurs que je veux comme valeurs de filtre et je met à jour le filtre du tcd par une fonction vba.

Le soucis c'est que si j'enregistre le classeur sous format .xls, le fonction marche bien mais en enregistrant sous format .xlsm, j'ai comme erreur "Argument ou appel de procédure incorrect" (aprés avoir changer la valeur du filtre plusieurs fois car la prémière fois y'a pas d'erreur ).

Le fichier est à télécharger ici: http://cjoint.com/?0KDovfxWk5G


Help please !

Merci d'avance