Sub Test()
Dim Chaine$, Titre$
Titre = 'coucou XLD!'
Chaine = 'msgbox ''coucou XLD!''' & vbLf
Chaine = Chaine & ' application.screenupdating=false' & vbLf
Chaine = Chaine & ' affichage ' & ' Titre '
AjouterProcEven ActiveWorkbook, 'ThisWorkbook', 'Open', 'Workbook', Chaine
End Sub
Sub Affichage(ByVal Msg$)
MsgBox Msg
End Sub
Sub AjouterProcEven(C As Workbook, NomModule$, Evenement$, Objet$, Code$)
With C.VBProject.VBComponents(NomModule).CodeModule
.InsertLines .CreateEventProc(Evenement, Objet) + 1, Code
End With
End Sub