Sub Exporter()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("ANALYSE")).Copy
With ActiveWorkbook
For Each w In .Worksheets
w.DrawingObjects.Delete
w.Cells.Validation.Delete
Next
.SaveAs ThisWorkbook.Path & "\NS", 51
.Close
End With
End Sub