XL 2013 effacer code de la nouvelle feuille

[Usine à gaz]

Bonjour à toutes et à tous

Voilà presque longtemps ....

J'ai une action à faire que je voudrais automatiser en vba et je n'arrive pas à trouver malgré mes recherches et essais.

Je me permets de poser ma question.

Dans mon classeur, j'ai une feuille de base que je duplique après l'avoir complétée.
Cette feuille contient des codes vba.

J'ai besoin d'effacer les codes dans la nouvelle feuille (tout en les gardant dans la feuille de base)

En recherchant sur le net, j'ai trouvé ce code :

With Workbooks("Classeur1").VBProject.VBComponents("Feuil1 (2)").CodeModule
    .DeleteLines 1, .CountOfLines
    End With

qui beugue sur le première ligne et je ne trouve pas ce qui ne va pas.

Quelqu'un pourrait me corriger ? (fichier test joint)

Avec mes remerciements,
Je vous souhaite à toutes et à tous un très beau dimanche
Amicalement,
Arthour973,

 

[Usine à gaz]

Re- à toutes et à tous

Je viens de trouver ma réponse ici :
Didier_mDF
https://www.excel-downloads.com/threads/supprimer-code-vba-lors-dune-copie-de-feuille.81364/

Un grand merci Didier

Je joins le fichier qui fonctionne pour ceux qui en auraient besoin
Bonne fin de dimanche à toutes et à tous,
Amicalement,
arthour973