Macro VBA Répéter action jusqu'à atteindre fin document

Merci beaucoup pour votre réponse.

Le code proposé à présent crée en fait deux crochets autour de chaque numéro mais également autour des éventuels numéros présents dans la note :

[[1]]. Cela est vrai en [[1975]].

Je pense que pour le moment, je vais garder ma première macro en créant un raccourci pour l'utiliser rapidement.

Je n'ai pas encore les compétences nécessaires pour créer un code qui me convienne. Je continue à étudier.

Merci encore pour votre aide !

code a tester à nouveau

Sub NotesdeFin_MiseEnForme()
    ' NotesdeFin_MiseEnForme Macro
    ' Ajout crochets autour numéro liste notes de fin
    Dim doc As Document
    Dim rng As Range
    Set doc = ActiveDocument
    Set rng = doc.Content

    ' Désactiver le rafraîchissement de l'écran et les alertes pour améliorer les performances
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' Boucle à travers chaque mot du document
    For i = 1 To rng.Words.Count
        If IsNumeric(rng.Words(i).Text) Then
            ' Ajouter les crochets autour du mot
            rng.Words(i).Text = "[" & rng.Words(i).Text & "]"
        End If
    Next i

    ' Réactiver le rafraîchissement de l'écran et les alertes
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

Bonjour,

Merci pour votre réponse, malheureusement le code proposé ne convient pas car la boucle ne s'arrête jamais ce qui fait ensuite boguer Word. Je ne sais pas encore comment quelle instruction indiquer pour stoper la boucle.

jour

Code à tester

Sub NotesdeFin_MiseEnForme()
'
' NotesdeFin_MiseEnForme Macro
' Ajout crochets autour numéro liste notes de fin
'
    Dim doc As Document
    Set doc = ActiveDocument
    
    ' Placer le curseur au début du document
    Selection.HomeKey Unit:=wdStory
    
    ' Boucle jusqu'à la fin du document
    Do Until Selection.End = doc.Content.End
        Selection.TypeText Text:="["
        Selection.MoveRight Unit:=wdWord, Count:=1
        Selection.TypeText Text:="]"
        Selection.MoveRight Unit:=wdCharacter, Count:=1
        Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Selection.TypeText Text:=" "
        Selection.MoveDown Unit:=wdParagraph, Count:=1
    Loop

End Sub