Excel Word et bookmarks

Bonjour,
une macro importe des données reprises dans une feuille excel vers un document word contenant des signets.
ça fonctionne bien, mais à chaque fois les signets de mon doc sont éffacés!
Ma macro:
Public Sub Test()

Dim Lettre As String
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document

On Error Resume Next

Lettre = "C:\Users\weets.c\Desktop\Ann C.docx"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True

Set LeDocWord = ObjWord.Documents.Open(Lettre)


Set nom = ThisWorkbook.Sheets("Formulaire").Range("C3")
Set PreNom = ThisWorkbook.Sheets("Formulaire").Range("C4")
Set grade = ThisWorkbook.Sheets("Formulaire").Range("C5")
Set matri = ThisWorkbook.Sheets("Formulaire").Range("C6")

With LeDocWord
.Bookmarks("Nom").Range.text = nom
.Bookmarks("prenom").Range.Text:=PreNom
.Bookmarks("grade").Range.Text:=grade
.Bookmarks("matricule").Range.Text:=matri

End With


Set ObjWord = Nothing

End Sub

Merci d'avance ,
Claudy