Sub Exporter()
Dim chemin$, s As Object
chemin = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ThisWorkbook.SaveCopyAs chemin & "DS.xlsm"
With Workbooks.Open(chemin & "DS.xlsm")
For Each s In .Sheets
If IsError(Application.Match(s.Name, Array("MO Qte", "BETON Qte", "ACIER Qte"), 0)) _
Then s.Delete Else s.DrawingObjects.Delete
Next
.SaveAs chemin & "DS.xlsx", 51
.Close
End With
Kill chemin & "DS.xlsm"
End Sub