Supprimer les macros par une macro

En effectuant des recherches, je suis tombé sur cette contribution fort intéressante.

J’ai tenté d’utiliser ces codes afin de créer une copie d’un fichier puis d’y supprimer certains codes, mais je n’y arrive pas entièrement.

Prenons un exemple : Ma macro Démo_1 - placée dans le module Module_principal et reliée au bouton Démo 1 - devrait permettre d’effectuer une copie du fichier de base, d’y effacer tous les codes de toutes les feuilles, de ThisWorkbook, de tous les modules ainsi que les UserForm.

Mais lorsque je lance ce code au pas à pas, on voit qu’il passe par une fenêtre d’erreur (qui n’apparait pas si on lance la macro par le bouton ou par F5, mais le résultat final est le même) ; fenêtre d’erreur qui dit "Impossible d'entrer au mode pas à pas maintenant". A ce moment-là, si on clique sur "Continuer", ça part en vrille, le fichier se referme apparemment sans que la macro se termine.

Le nouveau fichier déjà créé par le début de la macro peut alors être rouvert – alors qu’il devrait rester ouvert à l’écran - et on constate alors que tous les codes ainsi que le UserForm ont été effacés, mais pas le module dans lequel se trouve le code Démo_1.

Avec le code Démo_2, il y a un problème très semblable.

Savez-vous ce qu’il faudrait corriger afin que ces codes continuent normalement ?

A te relire.