[Word] Déplacer un exposant après 4 chiffres

Bonjour,

Etant un peu en rade d'imagination, ce jour, je fais appel à ceux qui pourraient m'aider. Je dois, sur un grand nombre de références, déplacer un exposant se trouvant devant une date (²1985) derrière la date (1985²). Je voudrais enregistrer un code et l'incorporer à une macro plus conséquente, mais avant cela, je voudrais le tester.

J'ai fait un premier essai en modifiant l'exposant en chiffre et déplacé ce chiffre derrière la date en utilisant les caractères génériques :

Chercher : ([0-9])([0-9][0-9][0-9][0-9])
Remplacer par : \2\1

Maintenant, je cale : comment aller chercher ce cinquième chiffre et lui donner le format d'exposant ? ou comment le coder ?

J'ai déjà fait ça, mais c'est la dernière ligne, en gras, qui ne passe pas :

Selection.Find.ClearFormatting
With Selection.Find
.Text = "([0-9][0-9][0-9][0-9][0-9])"
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.ClearFormatting
Dim sel As Selection
Set sel = ActiveDocument.Selection
sel.MoveRight unit:=wdCharacter, Count:=5
Selection.Characters.Superscript = True



S'il y a une autre idée pour faire plus vite et mieux en déplaçant d'un seul coup l'exposant derrière la date, je suis preneuse !

Merci d'avance pour ce grand coup de pouce.