Sub Test()
'juste pour le permettre de verifier que les variables était bien attribué
Cel = Selection
For i = 1 To Len(Cel)
'juste pour le permettre de verifier que les variables était bien attribué
ActiveCell = Cel
test1 = ActiveCell.Characters(Start:=i, Length:=1).Text
test2 = UCase(test1)
'test si la lettre est en MAJ - Comparaison de la lettre avec son équivalent en UperCase
If test1 = UCase(test1) Then
ActiveCell.Characters(Start:=i, Length:=1).Font.ColorIndex = 3
End If
Next i
End Sub