Dim Wb As Workbook
Dim VBComp As vbcomponent
Dim Debut As Integer, Fin As Integer, i As Integer
Dim X As Integer
'Creation classeur
Set Wb = Workbooks.Add
'Creation d'un module standard dans le nouveau classeur
Set VBComp = Wb.VBProject.VBComponents.Add(1)
With Wb.VBProject.VBComponents(VBComp.Name).CodeModule
X = .CountOfLines
End With
'Copie dans le nouveau module, la procédure nommée "ControleSiOutlookOuvert"
'qui est dans le module1 du classeur contenant cette macro.
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
Debut = .ProcStartLine("ControleSiOutlookOuvert", vbext_pk_Proc)
Fin = .ProcCountLines("ControleSiOutlookOuvert", vbext_pk_Proc) + Debut
For i = Debut To Fin
'Ajout de la procédure
With Wb.VBProject.VBComponents(VBComp.Name).CodeModule
X = X + 1
.InsertLines X + 1, _
ThisWorkbook.VBProject.VBComponents("Module1").CodeModule.Lines(i, 1)
End With
Next i
End With
