Sub Exporter()
Dim s As Object, lien, i&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets(Array("MO Qte", "BETON Qte", "ACIER Qte")).Copy
With ActiveWorkbook
For Each s In .Sheets: s.DrawingObjects.Delete: Next
lien = .LinkSources
If Not IsEmpty(lien) Then
For i = 1 To UBound(lien)
.BreakLink lien(i), xlExcelLinks
Next
End If
.SaveAs ThisWorkbook.Path & "\DS", 51
.Close
End With
ActiveCell.Activate
End Sub