Sub EnvoiFeuilleMail()
Dim Nom$, sDir$
Application.ScreenUpdating = False
Nom = InputBox("nom du fichier ?")
If Nom = "" Then Exit Sub
sDir = ActiveWorkbook.Path & "\" & Nom & ".xls"
ActiveSheet.Copy
With ActiveSheet
.Shapes("Bouton 12").Delete
With .UsedRange.Cells
.Value = .Value
End With
End With
With ActiveWorkbook
With .VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
.SaveAs sDir
.SendMail "arpette@free.fr", Nom
.Close False
End With
Kill sDir
End Sub