Set cel = Range("g1")
chaineCherchée = "produit:"
p = 1
Do While p > 0
p = InStr(p, cel.Comment.Text, chaineCherchée)
If p > 0 Then
cel.Comment.Shape.TextFrame.Characters(Start:=p, Length:=Len(chaineCherchée)).Font.ColorIndex = 3
p = p + Len(chaineCherchée)
End If
Loop