Mes signets ne fonctionnent pas !

Bonjour à tous !

J'invoque une fois de plus les lumières de la communauté.

J'essaie de compléter un fichier word à l'aide d'informations provenant d'un tableau Excel.

J'ai créé quatre signets correspondant à quatre informations différentes dans le fichier word et j'ai pompé une macro d'un tuto Youtube, qui donne ça:

Sub creation_profoffre()
Dim wordapp As Word.Application
Dim worddoc As Word.Document

Set wordapp = CreateObject("word.Application")
Set worddoc = wordapp.Documents.Open("C:\vba excel\profoffre.docx")

worddoc.Bookmarks("signet1").Range.Text = Range("'template offre'!B5").Value
worddoc.Bookmarks("signet2").Range.Text = Range("'template offre'!B6").Value
worddoc.Bookmarks("signet3").Range.Text = Range("'template offre'!B7").Value
worddoc.Bookmarks("signet4").Range.Text = Range("'template offre'!B8").Value

End Sub

Au final, les signets ont disparu du fichier Word, mais seul le texte du dernier signet apparaît.

Pourriez-vous m'indiquer ce qui manque ?

Merci par avance !