.AddComment C(I, J) 'Ajoute le Commentaire C
A = InStr(1, C(I, J), ":") + 2 'Recherche à partir de quel caractère il faut mettre en gras
.Comment.Shape.TextFrame.Characters(Start:=A, Length:=1).Font.Bold = True 'Met en gras les caractères séléctionnés
B = InStr(A + 1, C(I, J), ":") + 2
.Comment.Shape.TextFrame.Characters(Start:=B, Length:=1).Font.Bold = True
D = InStr(B + 1, C(I, J), ":") + 2
.Comment.Shape.TextFrame.Characters(Start:=D, Length:=1).Font.Bold = True