Copie tableau excel vers word

Bonjour,
Je souhaiterais copier un tableau excel vers un signet dans un fichier word déjà existant.
Voici ce que j'ai fait pour l'instant mais ça bug
Quelqu'un aurait-il une solution SVP ?
Sub exportDonneesDansSignetsWord()
'--------------------------------------------------------------------
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
'--------------------------------------------------------------------
Dim AppWord As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte

Set AppWord = CreateObject("word.application") 'ouvre session word
Set WordDoc = AppWord.Documents.Open("C:\Users\b_leb\OneDrive\Documents\PROJET DTO\FSMT-1.docm") 'ouvre document Word Attention au chemin!!
AppWord.Visible = False 'word masqué pendant l'operation
For i = 1 To 2
Range("B5:F15" & i).Copy
'les signets du document Word sont nommés Tableau1, Tableau2
WordDoc.Bookmarks("Tableau1" & i).Range.Select
AppWord.Selection.Paste
Next i

AppWord.Visible = True
WordDoc.Close =FALSE
End Sub

--
merci à vous