Bonjour
Voici un petit code qui fait cela
For Each cell In Range("A1:C10") <=== Choisis ta plage à tester
If cell = "info" Then
cell.AddComment
cell.Comment.Visible = False
cell.Comment.Text Text:="Coucou" <==== Choisis ton commentaire
cell.Select
Else
cell.ClearComments
End If
Next
Bon courage
Pascal