'activer la reference Microsoft Forms 2.0 Object Library
Dim x As New DataObject
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Appel à annuler"
.BeginGroup = True
.OnAction = "Macro"
Feuil1.Shapes("Picture 850").Copy
.PasteFace
End With
x.SetText ""
x.PutInClipboard