Re,
Pour "sauvegarder sous" sans la macro :
Sub SaveAsWithoutMacros()
Dim NomSource$, CheminDest$, NomDest$
Dim VBC As Object
NomSource = "TestSaveAs.xls" 'mets ce que tu veux
CheminDest = "C:" 'mets ce que tu veux
NomDest = "test.xls" 'mets ce que tu veux
Workbooks(NomSource).SaveAs CheminDest & NomDest
With ActiveWorkbook.VBProject
'cette partie du code est de Laurent Longre
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
Else: .VBComponents.Remove VBC
End If
Next VBC 'LL
End With
Application.Quit
SendKeys "%O"
End Sub