Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("Feuil1").Range("A1").Value = "" Then
Cancel = True
MsgBox "Impossible d'imprimer si A1 n'est pas renseignée"
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Feuil1").Range("A1").Value = "" Then
Cancel = True
MsgBox "Impossible d'enregistrer si A1 n'est pas renseignée"
End If
End Sub