J'allais proposer ceci mais ça revient au même que ta fonction, si ce n'est mieux
Sub Macro1()
Range("F6").Select
ActiveCell.FormulaR1C1 = "jon"
With ActiveCell.Characters(Start:=3, Length:=1).Font
.Color = -16776961
End With
Range("G7").Select
End Sub
Enregistreur de macro + nettoyage = on arrive à beaucoup de chose en tâtonnant ! Et si c'est impossible, alors ce n'est pas Excel ! Une maxime lu en "carte de visite" mais je ne sais plus de qui...