Sub miseAjourSignetDocWord()
'necessite d'activer la reference Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.document
Set WordApp = New Word.Application 'ouverture session Word
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & '\\monDocument.doc') 'ouverture document Word
WordDoc.Bookmarks('monSignet').Range.Text = Range('A1')
End Sub