message avant fermeture d'excel

Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Msg, Style, Title, Help, Ctxt, Response, MyString
If ((Range("M31:AB31").Select ) + (Range("M36:AB36").Select) + (Range("M39:AB39").Select) + (Range("M43:AB43").Select) + (Range("M45:AB45").Select) + (Range("M41:AB41").Select) = "") Then

    Msg = "Veuillez remplir tous l'équipe?"    ' Définit le message.
    Title = "Erreur "    ' Définit le titre.
    Help = "DEMO.HLP"    ' Définit le fichier d'aide.
    Ctxt = 1000    ' Définit le contexte de
                ' la rubrique.
' Affiche le message.
    Response = MsgBox(Msg, Style, Title, Help, Ctxt)
    If Response = vbYes Then    ' L'utilisateur a choisi Oui.
        MyString = "Oui"    ' Effectue une action.
    Else    ' L'utilisateur a choisi Non.
        MyString = "Non"    ' Effectue une action.
    End If
End If

End Sub