Sub test()
Dim T As Variant, i&, X&
On Error Resume Next
T = Selection
For i = LBound(T, 1) To UBound(T, 1)
X = X + UBound(Split(T(i, 1), Chr(10))) + 1
Next i
If Not Err Then MsgBox X & " ligne(s)" & vbLf & "dans la sélection " & Selection.Address, 64
End Sub