Public Sub FermerTOUSLesClasseurs(EnregistrerLesAutresClasseurs As Boolean, EnregistrerCeClasseur As Boolean)
Dim xlBook As Workbook
For Each xlBook In Application.Workbooks
If xlBook.Name <> ThisWorkbook.Name Then xlBook.Close EnregistrerLesAutresClasseurs
Next xlBook
ThisWorkbook.Close EnregistrerCeClasseur
Set xlBook = Nothing
End Sub
Sub EXEMPLE()
Call FermerTOUSLesClasseurs(False, True)
' ** Ici tous les classeurs ouverts se fermeront sans être enregistrés
' MAIS le classeur qui contient la procédure se fermera en enregistrant les modifs
End Sub