Peut être une solution :
Code:
Sub essai()
Dim c As Range
For Each c In Selection.Characters
With c.Font
If .Superscript = True Then
.Superscript = False
ElseIf .Superscript = False And .Subscript = False Then
.Superscript = True
End If
End With
Next c
End Sub