Sub commentaireCouleur()
For Each c In ActiveSheet.Comments
c.Shape.Fill.ForeColor.SchemeColor = 1
temp = UCase(c.Text)
If InStr(temp, "AUTO") > 0 Then c.Shape.Fill.ForeColor.SchemeColor = 3
If InStr(temp, "MAISON") > 0 Then
c.Shape.Fill.ForeColor.SchemeColor = 5
c.Shape.TextFrame.Characters(Start:=1, Length:=255).Font.Bold = True
End If
If InStr(temp, "TRAVAIL") > 0 Then
c.Shape.Fill.ForeColor.SchemeColor = 7
c.Shape.Line.ForeColor.SchemeColor = 10
End If
Next c
End Sub