With BO
Set Bouton7 = .Controls.Add(msoControlButton)
With Bouton7
.Caption = "Impression feuille de debit cote fini"
.FaceId = 0
Worksheets("Paramètre").DrawingObjects("Image 17").Copy
.PasteFace
.OnAction = "imp_feuil"
End With
.Visible = True
End With