XL 2013 ThisWorkbook : code ferme et enregistre si, sinon exit sub

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai un nouveau souci qui n'est certainement pas très compliqué mais je n'arrive pas à trouver où est mon erreur.
Je me permets de solliciter à nouveau votre aide.

Mon code dans le ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Select
If [b6] = "" Then
MsgBox "Merci de compléter la cellule B6 avant de quitter"
Exit Sub
End If
On Error Resume Next
ActiveWorkbook.Save
Application.EnableEvents = True
End Sub

Ce que je voudrais faire si B6 est "" :
1 - affichage msgbox
2 quitte la procèdure

Ce qui se passe :
2 Ne quitte pas a procèdure

quand je ferme le msgbox, excel me propose
d'enregistrer si modif et quitte ou quitte direct si pas modif

Je joins un fichier test,
En vous remerciant déjà de m'avoir lu,
Je vous souhaite, à toutes et à tous, une bonne journée,
Amicalement,
Arthour973

 

[Lone-wolf]

Bonjour Lionel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Feuil1")
        If .Range("b6") = vbNullString Then
            MsgBox "Merci de compléter la cellule B6 avant de quitter"
            Cancel = True
        Else
            Application.DisplayAlerts = False
            ActiveWorkbook.Save
        End If
    End With
End Sub

 

[Usine à gaz]

Bonjour Lone,

Tjrs là toi.
Un grand merci, ça marche super
Bonne journée,
Amicalement,
Arthour973

 

[Lone-wolf]

Très bonne journée à toi aussi

 

[Usine à gaz]

Merci Lone