Sub bull()
Dim oWdApp As Object 'Word.Application
Dim oWdDoc As Object 'Word.Document
Dim C
Dim I As Integer
'Lancer une instance Word
Set oWdApp = CreateObject("Word.Application")
'Ouvrir un nouveau document
Set oWdDoc = oWdApp.Documents.Add
'Rendre Word visible
oWdApp.Visible = True
For I = 4 To Worksheets.Count
' Dernière cellule non vide
C = Worksheets(I).Range("B65536").End(xlUp).Row
'Copier une plage depuis Excel
Worksheets(I).Range("A2:B" & C).Copy
'Coller la plage dans Word
oWdApp.Selection.Paste
'Annuler le mode couper/copier
Application.CutCopyMode = False
Next
Cancel = True
End Sub