Couleur commentaire selon cellule

Bonjour,

(Re)voici (une partie de) ma macro, qui se précise :

Sub ier()

ligne = ActiveCell.Row
soluce = Worksheets("solutions").Cells(ligne, 6).Value
ActiveCell.FormulaR1C1 = "IER"
ActiveCell.AddComment
With ActiveCell.Comment.Shape
.Width = 64 'Largeur commentaire
.Height = 14 'Hauteur
.OLEFormat.Object.Font.Size = 11 'Taille du texte
' .OLEFormat.Object.Interior.ColorIndex = 3 'Couleur de fond
.TextFrame.Characters.Font.ColorIndex = 1 'Couleur de la police
' .TextFrame.Characters.Font.Bold = True 'Ecriture gras
.OLEFormat.Object.Font.Name = "Times New Roman" 'Type de police
End With
ActiveCell.Comment.Visible = True
ActiveCell.Comment.Text Text:=soluce
ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.Left = ActiveCell.Left + 0
Selection.ShapeRange.Top = ActiveCell.Top - 0

En gros, l'utilisateur a une question, il clique sur la proposition de son choix. Sa réponse apparaît puis un commentaire qui précise quelle est la bonne réponse. Mon "souci" vient de la couleur de fond du commentaire : je peux lui attribuer la couleur de la réponse de l'utilisateur (qui peut donc être fausse) (ici : 3 = rouge). Ce que je voudrai c'est que le commentaire, qui reprend déjà le texte dans la feuille solution, reprenne également la couleur de fond de la cellule où se trouve cette solution. J'ai essayé des RGB, etc. mais je ne sais pas s'il faut jouer dans la ligne :

.OLEFormat.Object.Interior.ColorIndex = 3 'Couleur de fond

ou dans Activecell.comment.color color:=soluce (mais ça ça marche pas :-) ) par exemple.

Ou ailleurs ...

J'ai une autre question, mais, c'est une autre question :-)

Merci d'avance et bonne fin de journée à toutes et tous !