Copié un module (protégé) dans un classeur

Bonjour,
Comment effectuer une copie d'un module (projet protégé par mot de passe) du classeur actif vers un autre classeur.
J'ai utilisé ceci mais cela ne fonctionne pas quand le projet est protégé.
'exporter un module de code puis le réimporter dans un autre classeur

Sub ImportExport()
Dim tmpModule$

'fichier temporaire pour l'exportation/importation
tmpModule = "D:\mamacro.bas"

'exportation depuis le classeur qui contient ce code
ThisWorkbook.VBProject. _
VBComponents("moduleMacro1").Export tmpModule

'importation dans le Perso.xls
Workbooks("Perso.xls").VBProject. _
VBComponents.Import(tmpModule).Name = "moduleMacro1"

'destruction du fichier temporaire
Kill tmpModule
End Sub

Pouvez vous m'aider
Merci d'avance