Sub AjouterMacro()
' cocher la réference Microsoft Visual Basic for Applications Extensibility 5.3
With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
ligne = .CountOfLines
.InsertLines ligne + 1, "Private Sub Workbook_Open()"
.InsertLines ligne + 2, "' mon code ici"
.InsertLines ligne + 3, "End Sub"
End With
End Sub