Sub nblignes()
NombreLignes= ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)
MsgBox "Ce document contient " & NombreLignes & " lignes."
End sub