Macro VBA Repetir acción hasta alcanzar el final del documento

Hello,
How to repeat the following macro in a loop with the stop condition reached end of document? I don’t master the Loop Until function well. Here is my code :

Sub NotesdeFin_MiseEnForme()
'
' NotesdeFin_MiseEnForme Macro
' Add brackets around endnote list number
'
    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 Until

End Sub

Result, this formatting :
61. Voir note

is reformatted as follows with brackets around the number :

[62]. Mozart, Briefe..., op. cit., lettre du 18 janvier 1775 : I, p. 517 (I, p. 368).

Thanks in advance for your help !

JulienDébutant