Cellule vide : message d'erreur a la fermeture de la feuille de calcul

[Hulk]

Lorsque je ferme mon document, j'aimerai que si la cellule (B5 par ex) est vide, je reçoive un avertissement.
Comment est ce que l'on peut faire ca ?
merci d'avance!

 

[Fred]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if range ("B5")="" then
attention = MsgBox("attention b5 est vide", vbOKCancel, "attention")
If attention = vbCancel Then
Range("b5").Value = "plus vide"
End If
End If
End Sub