Option Explicit
Sub ExporterFiche()
Dim s As Object
Dim NomOnglet As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
NomOnglet = ActiveSheet.Name
ActiveSheet.Copy
With ActiveWorkbook
For Each s In .Sheets: s.DrawingObjects.Delete: Next
.SaveAs ThisWorkbook.Path & "\Fiche " & NomOnglet, 51
.Close
End With
ActiveCell.Activate
End Sub