Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim dercel As Range, plage As Range
Set dercel = Sheets("enoncé").Range("B8:K65536").Find(What:="*", _
LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) 'dernière cellule renseignée
If dercel Is Nothing Then Exit Sub
Set plage = Sheets("enoncé").Range("B8:F" & dercel.Row) 'plage obligatoire du tableau
If Application.CountBlank(plage) Then
plage.SpecialCells(xlBlanks).Select 'sélection des cellules vides
MsgBox "Renseignez la (les) cellule(s) sélectionnée(s)", 48
Cancel = True
End If
End Sub