Modifier la couleur du triangle des commentaires

Sub CreeShapes()
For Each s In ActiveSheet.Shapes
     If s.Name Like "commentaire*" Then s.Delete
Next s
i = 1
For Each c In ActiveSheet.Comments
     With ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _
        Left:=c.Parent.Left + c.Parent.Width - 5, Top:=c.Parent.Top + _
1, Width:=5, Height:=5)
     .Fill.ForeColor.RGB = RGB(255, 255, 255)
     .Line.ForeColor.RGB = RGB(255, 255, 255)
     .IncrementRotation 180
     .Name = "commentaire" & i
     i = i + 1
End With
Next
End Sub