[Hervé]

re

comme ceci :

PrivateSub Worksheet_Change(ByVal Target As Range)
    With Target
        IfNot .Comment IsNothingThen .Comment.Delete
        SelectCase .Value
            CaseIs > 10: .AddComment.Text 'supérieur'
            CaseIs = 10: .AddComment.Text 'exact'
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CaseIs < 10: .AddComment.Text 'inférieur'
&nbsp; &nbsp; &nbsp; &nbsp; EndSelect
&nbsp; &nbsp; EndWith
EndSub

salut