Sub Fermer()
'MsgBox("Votre message ici", vbYesNo+ vbExclamation, "Titre de la MsgBox")'
Select Case MsgBox("Votre message ici", vbYesNo + vbExclamation, "Titre de la MsgBox")
Case vbYes
'Poursuite de la procédure Private Sub Workbook_BeforeClose(Cancel As Boolean)
Case vbNo
MsgBox "Procédure ajournée. Au revoir.", vbOKOnly, "IMPORT des Données 'CONSENSUS'" 'Arrêt de la procédure et
End Select
End Sub