Sub sauve_fichier()'
' sauve_fichier Macro
'
Application.Goto Reference:="export_origine" ' Ca je ne sais pas ce que c'est !?
' Sauvegarder le classeur actif sous un nouveau nom
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Sheets("Toto").Range("Nom").value & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub