Salut Roger,
Je ne sais pas ce qu'en pense les autres mais pour moi, c'est un peu vague ta demande !!
Si ta valeur de la cellule D4 ne peut être que du type 4a5b c'est pas trop dur, dans VB tu fais :
Sub Macro1()
if len(acivecell.value) ='4' then
'si la longueur de la valeur est de 4 caracteres
ActiveCell.Characters(Start:=3, Length:=1).Font.Superscript = True
end if
End Sub
tu déclenches la macro quand et comme tu veux et voilà !
Par contre, si c'est autre chose, il faut que tu sois plus précis !
Voilà a+