Sub tableau_vers_doc()
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
'Créer une instance de word
Set oWord = CreateObject("Word.Application")
'Copier une plage depuis Excel
Sheets("Feuil1").Select
range("A1:E24").Select
Selection.Copy
'Ouvrir un nouveau document
oWord.Documents.Open (ThisWorkbook.Path & "\essai.docx")
'rendre le document word visible
oWord.Visible = True
'cherche le signet dans la feuille word
oWord.Selection.Goto What:=wdGoToBookmark, Name:="Signet1"
'Coller la plage dans Word
oWord.Selection.PasteAndFormat (wdPasteDefault)
'aligne le tableau
oWord.Selection.Tables(1).Rows.SetLeftIndent LeftIndent:=-25, RulerStyle:= _
wdAdjustNone
'répète les ligne d'en-tête des tableaux
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Rows(1).Select
oTbl.Rows(1).HeadingFormat = True
Next oTbl
'Annuler le mode couper/copier
Application.CutCopyMode = False
End Sub