cellule obligatoirement remplie

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If IsEmpty(Range("A1").Value) Then Cancel = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Range("A1").Text = vbNullString Then
    MsgBox ("Cellule non reneignée")
    Cancel = True
End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("A1").Text = vbNullString Then
    MsgBox ("Cellule non reneignée")
    Cancel = True
End If
End Sub

Dim Flag As Boolean 'en haut de la feuille

Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
Renseigne
Cancel = Flag
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Renseigne
Cancel = Flag
End Sub

Sub Renseigne()
Flag = False
If IsEmpty(Sheets("Feuil1").[A1]) Then
MsgBox "Renseignez la cellule A1...", 48
Sheets("Feuil1").Activate
[A1].Select
SendKeys "{F2}"
Flag = True
End If
End Sub

Sub Renseigne()
[B][COLOR=Red]Flag = False[/COLOR][/B]
If IsEmpty(Sheets("Feuil1").[A1]) Then
MsgBox "Renseignez la cellule A1...", 48
Sheets("Feuil1").Activate
[A1].Select
SendKeys "{F2}"
Flag = True
End If