Exportation onglets (VBA)

Bonjour bouben,

dans l'attente de ta réponse j'ai trouvé un code sur le forum qui répond parfaitement à ma demande il lui faut juste une petite modification si tu peux le faire

*le nouvau fichier créé sera fermé

*le nouvau classeur créé prendra DS comme nom

Sub Copierdonnées()
Dim i As Byte
With ThisWorkbook
    Sheets(Array("MO Qte", "BETON Qte", "ACIER Qte")).Copy
End With
With ActiveWorkbook
For i = 1 To .Sheets.Count
    Sheets(i).DrawingObjects.Delete
Next
    .SaveAs dossierSauvegarde & "\" & NomFichier
    .ExportAsFixedFormat Type:=xlTypexlsx, Filename:=dossierSauvegarde & "\" & NomFichier & ".xlsx" _
                , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                :=False, OpenAfterPublish:=False
    .Close True
End With

si non j'attendrai ta proposition