Sub FermerTousClasseurs()
Dim Classeur As Workbook
For Each Classeur In Workbooks
Application.DisplayAlerts = False
Application.Quit
Classeur.Close SaveChanges:=True
Application.DisplayAlerts = True
Application.Quit
Next Classeur
End Sub