[soenda]

Bonjour le fil, JNP, magmatique

Une petite variante, de la Sub de JNP, qui ne met pas en indice un nombre en début de chaine
Ainsi dans "4 Fe", le 4 ne sera pas mis en indice

    Dim i%, fin As Integer
    
    fin = Len(ActiveCell)
    
    Application.ScreenUpdating = False
    
    For i = Len(CStr(Val(ActiveCell))) + 1 To fin
        If IsNumeric(Mid(ActiveCell, i, 1)) = True Then ActiveCell.Characters(i, 1).Font.Subscript = True
    Next
    
    Application.ScreenUpdating = True

A plus