Test mode de calcul à l'ouverture d'excel

Bonjour à tous
voila mon problème: je souhaite créer une macro Workbook_open() qui test à l'ouverture d'un fichier si le mode de calcul automatique est activé.

j'ai ouvert un classeur PERSONAL.XLSB et j'ai enregistrer ma macro dedans pour ne pas avoir à écrire la macro dans tous les fichiers.

Code:

---

1 2 3 4 5

If Application.Calculation = xlCalculationAutomatic Then MsgBox "Le calcul automatique est déjà activé" Else MsgBox "Veuillez activer le calcul automatique avant l'utilisation du fichier", vbExclamation, "Avertissement" End If

---

le soucis avec ce code est que j'ai le message d'erreur "incompatibilité de type" sur la première ligne, tandis que Application.decimalSeparator ne me met aucune erreur et fonctionne correctement.

Si quelqu'un pouvait m'aider à comprendre pourquoi ce message est présent j'en serai très reconnaissant.