disons que ton tableau est de B2 à D10:
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Not Application.Intersect(Target, Range("B2:D10")) Is Nothing Then
.ClearComments
.Interior.ColorIndex = xlNone
If .Value > 10 Then
Beep
.AddComment
.Comment.Text Text:="Attention valeur trop grande"
.Comment.Visible = True
.Interior.ColorIndex = 3
End If
End If
End With
End Sub
j'ai ajouté une couleur de fond rouge. L'ajout de commentaire peut être genant, si plusieurs cellule continue on une erreur, les commentaires s'empile. Peut-être que tu peux les masquer, ou completement les enlever. À toi de voir