Code vba msgbox pour fermer un classeur et enregistrer

Dim DejaFait As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Rep As Integer
If DejaFait Then Exit Sub
Rep = MsgBox("voulez vous enregistrer waraba?", vbYesNoCancel, "Enregistrement")
Select Case Rep
    Case 2
        'Si annuler on retourne dans le classeur sans rien faire
        Cancel = True
        Exit Sub
    Case 6
        'si oui, on sauvegarde
        ThisWorkbook.Save
    Case 7
        'si non,
        DejaFait = True
        MsgBox "merci d'utiliser ce logiciel que ........ te protège"
        'on quitte sans sauvegarder
        ThisWorkbook.Close False
        Exit Sub
    Case Else
        'dans tous les autres cas
        '(appui d'un bouton imaginaire de manière inopinée et spontané)
        MsgBox "Oulala, c'est inimaginable!"
        Exit Sub
End Select
MsgBox "merci d'utiliser ce logiciel que ........ te protège"
End Sub