Sub macro_save()
Application.ScreenUpdating = False
Dim nom_zone As String
nom_zone = Sheets("Page de garde").Cells(15, 2)
fichier = "O:\test\" & nom_zone & ".xls"
ActiveWorkbook.SaveAs fichier, , "QM", , True, , xlNoChange 'QM as pwd
Application.ScreenUpdating = True
ActiveWorkbook.Close False
Sheets("Page de garde").Activate
End Sub