Controle de Commentaire sur une cellule

Bonjour,

Dans mon tableau, il y a un commentaire qui s'ajoute automatiquement si modif de la cellule

Range(AD_deb).AddCommentThreaded ("POUR UN TESTE")

Mais si le commentaire existe deja j'ai une erreur ?

il veut pas remplacer le commentaire précedant..

Une Idée

Merci

Dim cell As Range
    Set cell = Range(AD_deb)
    If Not cell.CommentThreaded Is Nothing Then Range(AD_deb).CommentThreaded.Delete

Problème résolu

Bonjour

Essai ça !

Range("D5").Comment.Text Text:="Test"

Bye !