Bonjour
essaye un truc comme ca :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not ActiveCell.Comment Is Nothing Then
With ActiveCell.Comment.Shape.OLEFormat.Object.Font
.ColorIndex = 3
.Bold = True
.Underline = xlUnderlineStyleSingle
End With
End If
End Sub
rouge, gras , souligné
Salut
Hervé