Sub NombrePagesMotsDocumentWord()
Dim objWrd As Object
Dim objDoc As Object
Dim DerLig As Long
Dim i As Long
DerLig = ThisWorkbook.Worksheets("data").Range("A" & ThisWorkbook.Worksheets("data").Rows.Count).End(xlUp).Row
For i = 2 To DerLig Step 1
Set objWrd = CreateObject("Word.Application")
objWrd.Visible = False
Set objDoc = objWrd.Documents.Open(ThisWorkbook.Worksheets("data").Cells(i, 3).Value, ReadOnly:=True)
ThisWorkbook.Worksheets("data").Cells(i, 4).Value = objDoc.ComputeStatistics(wdStatisticPages)
ThisWorkbook.Worksheets("data").Cells(i, 5).Value = objDoc.ComputeStatistics(wdStatisticWords)
objDoc.Close SaveChanges:=wdDoNotSaveChanges
objWrd.Quit
Set objWrd = Nothing
Next i
End Sub