VBA Message d'Erreur

Bonjour,

Comment peut-on afficher une boite de message d'erreur "MsgBox" lorsqu'une cellule contient une erreur genre #VALEUR!? .

Merci

bonjour Hamid

dans l'exemple joint , un message s'affiche s'il y a une erreur dans la cellule A1 . la procedure est lancée à chaque nouveau calcul dans la feuille

Private Sub Worksheet_Calculate()
If WorksheetFunction.IsErr(Range("A1")) = True Then MsgBox "Il y a une erreur dans la formule . "
End Sub

bonne soirée
michel