Hello
Sub AddCmdButtonAndEventClick()
Dim objMonBouton As OLEObject
Set objMonBouton = ActiveWorkbook.ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=100, Top:=100, Width:=100, Height:=50)
With ActiveWorkbook.VBProject.VBComponents(ActiveWorkbook.ActiveSheet.CodeName).CodeModule
.InsertLines 1, "End Sub"
.InsertLines 1, "Userform1.show"
.InsertLines 1, "Private Sub " & objMonBouton.Name & "_Click()"
End With
objMonBouton.Object.Caption = "texte du bouton"
End Sub
Reste à voir si cela fonctionne avec ta pile d'appel...
dom ;-)