rebonsoir Serge
j'espere que cette adaptation répondra à ta demande
Sub SendPage()
Dim DrawObj As Object
ThisWorkbook.Sheets("Formulaire").Copy
On Error Resume Next
For Each DrawObj In ActiveSheet.DrawingObjects
'MsgBox TypeName(DrawObj)'juste pour connaitre le type d'objet
If TypeName(DrawObj) = "Button" Then DrawObj.Delete
Next
ActiveWorkbook.SendMail (Range("C14"))
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
bonne soirée
MichelXld