Option Explicit
'COCHEZ LA REFERENCE MICROSOFT WORD xx.0 OBJECT LIBRARY
Sub Copier_ParagWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Long, j As Long, x As Long
Dim deb As Range, fin As Range
Dim fichier As String
Application.ScreenUpdating = False
fichier = ThisWorkbook.Path & "\Lettre.doc"
Set deb = [L2]: Set fin = [N2]
[A3:A60].ClearContents
Set WordApp = New Word.Application
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open(fichier, ReadOnly:=True)
x = deb - 1
j = 2
For i = deb To fin
x = x + 1
j = j + 1
With Feuil1
.Cells(j, 1) = WordDoc.Paragraphs.Item(x).Range.Text
End With
Next
WordDoc.Close False
WordApp.Quit
Set WordApp = Nothing
Set WordDoc = Nothing
End Sub