Word : Rechercher/remplacer groupe de chiffres suivi d'une majuscule

Sub remplacer()
Application.ScreenUpdating = False
Selection.HomeKey Unit:=wdStory
    Do
        With Selection.Find
            .ClearFormatting
            .Text = "^#^#^#^$"
            .Forward = True
            .Wrap = wdFindStop
            .Execute
        End With

    If Selection.Find.Found Then
        Selection.Range.Case = wdLowerCase
       End If
    Loop Until Not Selection.Find.Found
End Sub