Mettre chiffre en exposant automatiquement

bonjour !

Je souhaite que tous (1), (2), (3) et (4) qui se situent dans mon tableau Excel passe automatiquement sous la forme d'exposant, sans mettre en exposant le texte associé (ce qui se passe quand j'utilise la fonction rechercher > remplacer).

Pourriez-vous m'aider svp? Je pense que c'est faisable avec une macro mais je n'arrive pas à la faire...

Merci

Bonjour,

à tester,

Sub Exposant()
Dim n As Integer, i As Long, y As Integer
   For i = 1 To 5 'adapter au nombre de ligne de la colonne A
     n = Range("A" & i).Characters.Count
     For y = 1 To n
       If Mid(Range("A" & i), y, 1) >= 1 And Mid(Range("A" & i), y, 1) <= 4 Then
          Range("A" & i).Characters(y, 1).Font.Superscript = True
       End If
     Next
   Next
End Sub

Merci beaucoup je vais tester cela