Sub test()
Selection.HomeKey unit:=wdStory ' place le cursaur en debut du document
With Selection.find
.ClearFormatting
.Text = "mot1"
.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute ' recherche du mot1
Selection.MoveRight 'déplacement a droite du mot
.Text = "mot2"
Selection.Extend ' etendre la selection
.Execute ' atteindre le mot2
Selection.MoveLeft unit:=wdCharacter, Count:=Len("mot2"), Extend:=1
' reculer du mot 2
End With
End Sub