Sub test()
ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=408, Top:=11.25, Width:=250, Height _
:=26.25
ActiveSheet.OLEObjects("commandbutton1").Object.Caption = "CREATION DE LA LISTE ARTICLE"
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
.InsertLines .CountOfLines + 1, "Sub CommandButton1_Click()" & vbCrLf & "Application.Run ""PERSO.XLS!acheter""" & vbCrLf & "End sub" & vbCrLf
End With
End Sub