Option Explicit
Sub Copier_ParagWord()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim fichier As String
Dim i As Long, x As Long
fichier = ThisWorkbook.Path & "\Lettre.doc"
Set WordApp = New Word.Application
WordApp.Visible = False
Set WordDoc = WordApp.Documents.Open(fichier, ReadOnly:=True)
For i = 1 To 9
x = x + 1
Cells(x + 1, 1) = WordDoc.Paragraphs.Item(x).Range.Text
Next
WordDoc.Close False
WordApp.Quit
Set WordApp = Nothing
Set WordDoc = Nothing
End Sub