exporter un module par macro

'Copie d'une macro contenue dans un Module Standard d'un classeur source pour être ré-écrite vers un classeur Cible :

Sub CopieCodeModule()
Dim S As String, Wbk As Workbook

With ActiveWorkbook.VBProject.VBComponents("Module1").C odeModule
S = .Lines(1, .CountOfLines)
End With

Set Wbk = Workbooks("New.xls")
Wbk.VBProject.VBComponents.Add 1
With Wbk.VBProject.VBComponents("Module1").CodeModule
.AddFromString S
End With

End Sub

Sub Copy()
Dim MaLigne As Integer, S As String, Wbk As Workbook
ActiveSheet.Copy
ChDir "C:\Martin Carrelage\Factures Clients"
Application.Dialogs(xlDialogSaveAs).Show
Application.ScreenUpdating = False
With ActiveSheet.Select
MaLigne = Range("E65536").End(xlUp).Row
    Range("A8:G" & MaLigne).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End With
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks("New.xls")
Wbk.VBProject.VBComponents.Add 1
With Wbk.VBProject.VBComponents("Module1").CodeModule
.AddFromString S
Application.ScreenUpdating = True
End With
End Sub

With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule