Effacer plusieurs paragraphes WORD avec signets

Bonjour à tous !

J'essaie de coder un petit programme en VBA pour rédiger automatiquement un document WORD à partir d'un fichier modèle WORD et d'un fichier EXCEL contenant des informations personnalisées à intégrer au modèle.

Je bute sur un point précis :

Dans mon modèle Word, plusieurs paragraphes sont identifiés avec des signets ayant des noms de ce type :

• abricot1
• abricot2
• banane1
• cerise1
• cerise2
• cerise3

Dans mon fichier Excel j'identifie les paragraphes à supprimer dans une même colonne comme tel :

• B1 : abricot
• B2 : cerise

Je souhaiterais que lorsque j'inscris abricot dans la colonne b, cela supprime TOUS les signets abricot dans mon fichier word, c'est à dire le paragraphe abricot1 et le paragraphe abricot2.

Pareil pour cerise, les 3 paragraphes cerise devraient être supprimés.

Dans la dernière cellule remplie dans la colonne B, j'inscris "Fin de la recherche".

Jusqu'ici j'arrive à supprimer le paragraphe que s'il a le même nom que ma case dans ma colonne B, soit abricot ou cerise.

Voici mon code :

Dim paragraphe_supprimer As Range

Set paragraphe_supprimer = Sheets("Feuille 1").Range("B1")

Do Until paragraphe_supprimer = "Fin de la recherche"

word_doc.Bookmarks(paragraphe_supprimer).Select
word_app.Windows(fichier & ".docx").Selection.Delete

Set paragraphe_supprimer = paragraphe_supprimer.Offset(1,0)

Loop

J'espère que vous pourrez m'aider avec ce problème, je m'arrache les cheveux depuis un bon moment...

Merci beaucoup !