Barre d'outils Ajout copier coller

Bonjour à tous
J'ai la macro suivante pour la création d'une barre d'outils
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:=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


Comment puis je rajouter les outils couper et coller.
Par avance merci
Tial