Sub test()
Dim Code As String
Code = "Sub BoutonTest_Click()" & vbCrLf
Code = Code & "Msgbox ""ca marche""" & vbCrLf
Code = Code & "End Sub"
'Ajoute la macro en fin de module feuille
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
.insertlines .CountOfLines + 1, Code
End With
End Sub