XL 2016 Fermer Fichier et Quitter excel

Option Explicit

'Fermeture avec Save
ThisWorkbook.Save
If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit


'Fermeture sans Save
If Application.Workbooks.Count > 1 Then
    ThisWorkbook.Close savechanges:=False
Else
    Application.DisplayAlerts = False
    Application.Quit
End If

'Si le classeur a été modifié, demander si enregistrer ?
If Not ThisWorkbook.Saved Then
    Réponse = MsgBox("Enregistrer les modifications ?", vbYesNoCancel + vbQuestion)
   
    'Annuler
    If Réponse = vbCancel Then Exit Sub
   
    'Enregistrer les modifications
    If Réponse = vbYes Then
        ThisWorkbook.Save
        MsgBox "Classeur enregistré !"
        If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
           
    'Ne pas enregistrer les modifications
    Else
        Réponse = MsgBox("Êtes-vous sûr de ne pas vouloir enregistrer les modifications ?", vbYesNo + vbQuestion)
        If Réponse <> vbYes Then Exit Sub
        If Application.Workbooks.Count > 1 Then
            ThisWorkbook.Close savechanges:=False
        Else
            Application.DisplayAlerts = False
            Application.Quit
        End If
    End If

'Le classeur n'a pas été modifié
Else
    If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
End If

Sub Fermer()
ThisWorkbook.Save 'enregistrement facultatif
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub