[Hervé]

Bonsoir zeltron

Un petit fichier exemple n'aurait pas été de refus

ce type de code crée un commentaire, si la cellule contient un chiffre inférieur à 10.

PrivateSub Worksheet_Change(ByVal Target As Range)
If Target > 10 Then
        With Target
            IfNot .Comment IsNothingThen .Comment.Delete
            .AddComment.Text Target.Text
        EndWith
Else
    IfNot Target.Comment IsNothingThen Target.Comment.Delete
EndIf
EndSub

a placer dans le module de la feuille, clique droit sur le nom de l'onglet, puis visualiser le code.

salut