Ave,
Le problème est de comprendre ce que tu entends par :''...nombre de lignes d'une plage...''
S'il s'agit du nombre de lignes DIFFERENTES concernées par la sélection :
Sub zzz_LgUnik()
Dim lgUnik As New Collection
On Error Resume Next
For Each c In Selection
lgUnik.Add c.Row, CStr(c.Row)
Next
MsgBox 'Il y a ' & lgUnik.Count & ' ligne(s) différente(s) concernée(s) par la sélection'
End Sub
S'il s'agit d'autre chose, précise le.
AV [aaa]