Private Sub CommandButton1_Click()
Dim vCod As String, vObj As Object
' Sélectionne le module à copier
Set vObj = Application.VBE.ActiveVBProject.VBComponents.Item("Module1")
' Place le code à copier dans la variable vCod
vCod = vObj.CodeModule.Lines(1, vObj.CodeModule.CountOfLines)
' Crée un nouveau classeur
Workbooks.Add
With ActiveWorkbook
' Crée un nouveau module dans le nouveau classeur
.Application.VBE.ActiveVBProject.VBComponents.Add (vbext_ct_StdModule)
' Insère le code dans le nouveau module
.Application.VBE.ActiveVBProject.VBComponents.Item("Module1").CodeModule.AddFromString (vCod)
End With
End Sub