Sub AjouteCommentaire()
Selection.ClearComments
For Each c In Selection
c.AddComment CStr(c.Value)
c.Comment.Shape.TextFrame.AutoSize = True
c.Comment.Shape.OLEFormat.Object.Font.Size = 12
c.Comment.Shape.TextFrame.Characters(Start:=1, Length:=99).Font.Bold = True
p = InStr(c.Value, Chr(10))
If p > 0 Then
g = Left(c.Value, p)
p1 = InStr(g, "-")
If p1 > 0 Then
c.Comment.Shape.TextFrame.Characters(Start:=1, Length:=p).Font.ColorIndex = 3
End If
d = Mid(c.Value, p)
p2 = InStr(d, "+")
If p2 > 0 Then
c.Comment.Shape.TextFrame.Characters(Start:=p + 1, Length:=99).Font.ColorIndex = 4
End If
End If
Next c
End Sub