Private Sub CmdButton1_Click()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("C:\Users\AreYouBush\Desktop\test.docx") 'ouvre document Word
WordApp.Visible = True
WordDoc.Bookmarks("TEST").Range.Text = Cells(1, 1)
End Sub