[macro word] supprimer selection

Bonjour,
Je sélectionne mon texte d'un point A au point B puis supprime ma sélection avec cette macro :

Sub SuppressionTextInutile()
'Selection.HomeKey Unit:=wdStory ' place le cursaur en debut du document
With Selection.Find
.ClearFormatting
.Text = "point A"
.MatchWildcards = 0
.Forward = 1
.Replacement.Text = ""
.Replacement.ClearFormatting
.Execute
.Text = "point B"
Selection.Extend ' etendre la selection
.Execute
End With
' Selection.Delete Unit:=wdCharacter, Count:=1
End Sub

Cela marche très bien mais pour une seule occurence, la première rencontrée dans le document.

Comment puis-je balayer tout le document word ?
si je dis

Selection.Find.Execute Delete:=wdDeleteAll

Cela ne fonctionne pas, mais c'est l'idée.
Merci pour votre aide
ed