cellule où je suis positionnéOui, c'est la réponse à ta question : ACTIVECELL
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub Worksheet_Change(ByVal Target As Range)--
toto Target
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
toto Target
End Sub
Private Sub toto(c As Range)
d = c.Text
ou = 1
Do While InStr(ou, d, "1er") 'And ou < Len(d)
pos = InStr(ou, d, "1er")
c.Characters(pos + 1, 2).Font.Superscript = True
ou = ou + 4
Loop
End Sub