Sub jours()
Dim mapage
Set mapage = ActiveDocument.Bookmarks("\Page")
mapage.Select
With Selection.Find
.Text = "([!1-9])(1 jour(s))\"
.Forward = True
.Execute FindText:="([!1-9])(1 jour(s))\", ReplaceWith:="([!1-9])(1 jours)\", Replace:=wdReplaceAll
.Wrap = wdFindStop
End With
If Selection.Find.Execute = False Then
mapage.Select
Selection.Find.Execute FindText:="", ReplaceWith:="", Replace:=wdReplaceAll
End If
End Sub