[VBA] String: colorier un caractere

Bonjour à vous.

J'ai un texte noté sur une cellule en noir. En vba, j'aimerai écrire le ième caractère (seulement lui) en vert.

Vous savez comment faire?

Merci d'avance,

Bonjour Fab, bonjour le forum,

À adapter :

Sub Macro1()
n = 4 
Range("A1").Characters(Start:=n, Length:=1).Font.ColorIndex = 4
End Sub