Sub InsereTableauFiltre()
Dim Wrd As Object, AppWrd As Object
Dim L As Long
Set Wrd = CreateObject('Word.Application')
Set AppWrd = Wrd.Documents.Add
Wrd.Visible = True
Application.ScreenUpdating = False
With Sheets('Feuil1')
L = .Range('A65536').End(xlUp).Row
.Range(.Cells(1, 1), .Cells(L, 4)).Copy
Wrd.Selection.Paste
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub