Sub EnvoyerDonneesExcelVersWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\grille.docx", ReadOnly:=False) 'ouvre document Word
WordApp.Visible = True
WordDoc.Bookmarks("capacites").Range.Text = Cells(2, 1)
puce = Cells(1, 4)
WordDoc.Bookmarks("connaissances").Range.Text = puce & Cells(2, 2) & vbLf & puce & Cells(3, 2) & vbLf & puce & Cells(4, 2) & vbLf & puce & Cells(5, 2)
End Sub