BO perso

Bonjour à toutes et tous.

J'ai une BO personnaliseé. Dans cette dernière, comment puis je ajouter
un bouton qui actionnerait ma macro "toto".

Par avance merci


Sub CreateBO()
'Création de la barre d'outils "Forme Libre"
With Application
.ScreenUpdating = False
.CommandBars.Add(Name:="Forme libre").Visible = True
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=21, Before:=1
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=22, Before:=2
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=206, Before:=1
.CommandBars("Forme libre").Controls.Add Type:=msoControlButton, Id:=200, Before:=1
End With
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1, 1, 1, 1). _
Select
With Selection.ShapeRange
.Fill.Visible = msoFalse
.Line.Weight = 0.5
.Line.ForeColor.SchemeColor = 48
.SetShapesDefaultProperties
End With
Selection.Delete
End Sub