Bonjour,
à tester,
Sub Copie()
'cocher la référence : Microsoft Visual Basic for Applications Extensibility library
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents
Dim FN, NomFichier As String
FN = ActiveSheet.Range("h2")
Sheets("Mle-2").Copy
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1")).Delete
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
NomFichier = Application.GetSaveAsFilename(FN & "_" & Replace(CStr(Date), "/", "_"), "Microsoft Excel (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlNormal, CreateBackup:=False
End Sub