Sub copie()
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"C:\Documents and Settings\Manuel Dejong\Mes documents\Backupdevis.xlsx"
With Workbooks("testfactureetdevis.xlsm").Sheets("Moddevis")
.Buttons.Add 646.5, 382.5, 147.75, 60
.Buttons.Add 850.5, 129.75, 157.5, 60.75
.Copy Before:=Workbooks("Backupdevis.xlsx").Sheets(3)
.DrawingObjects.Delete
.Activate
End With
End Sub