Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Sheets("Feuil1")
If .Range("B3") = "AAA" And .Range("E9") < 500 Then
MsgBox "blablabla", vbInformation, "MESSAGE"
End If
End With
If Sheets("Feuil2").Range("B1") <> "" Or Sheets("Feuil1").Range("B1") <> "" Then
MsgBox "On efface la cellule B3 de la feuille1"
Sheets("Feuil1").Range("B3").ClearContents
MsgBox "blablabla", vbInformation, "MESSAGE"
End If
End Sub