Remplace signet word via un programme vba

Bonjour,

je souhaite à partir d'un code vba aller chercher une valeur dans ma feuille excel. cette valeur sera ensuite écrit à la place d'un signet d'un document word que j'ouvre avec le meme programme vba.

Voici mon code mais il ne marche pas trés bien. Il m'ouvre le doucument word mais ne remplace pas du tout le signet à la valeur trouvée.

Public Function RemplirSignet(mon_signet As String, mon_texte As String)

' Remplace mon_signet par mon_texte

Dim Place As Long
Place = ActiveDocument.Bookmarks(A).Range.Start
ActiveDocument.Bookmarks(A).Range.Text = B
ActiveDocument.Bookmarks.Add Name:=A, Range:=ActiveDocument.Range(Place, Place + Len(B))

End Function

Sub Export_word()

Dim WordApp As Object, WordDoc As Object

' Ouvrir le document Word

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
WordApp.Documents.Open "D:/MacroV2/Fiche_Test.docx"
RemplirSignet "S3", Sheets("Feuil1").Range("B1").Value

End Sub

En executant le programme, le document Fiche_Test s'ouvre mais j'ai une erreur d'exécution 424.

Merci par avance pour votre aide.