Sub CopieCodeModule()
Dim S As String, I As Byte, WbkNew As Workbook, WbkOld As Workbook
Supprime_Macro
For I = 1 To 99
ModuleX = "Module" & I
Set WbkOld = Workbooks("Fichier_old.xls")
Workbooks("Fichier_old.xls").Activate
On Error GoTo Fin
With ActiveWorkbook.VBProject.VBComponents(ModuleX).CodeModule
S = .Lines(1, .CountOfLines)
End With
Set WbkNew = Workbooks("Fichier_new.xls")
WbkNew.VBProject.VBComponents.Add 1
With WbkNew.VBProject.VBComponents(ModuleX).CodeModule
.AddFromString S
End With
Next I
Fin:
End Sub