nombre de ligne d'une multisélection

Bonjour Eric83,
un exemple sortie tous droit de l'aide visual basic.A adapter
Sub Macro1()
Worksheets('feuil1').Activate
areaCount = Selection.Areas.Count
If areaCount <= 1 Then
MsgBox 'The selection contains ' & _
Selection.Rows.Count & ' rows.'
Else
i = 1
For Each a In Selection.Areas
MsgBox 'Area ' & i & ' of the selection contains ' & _
a.Rows.Count & ' rows.'
i = i + 1
Next a
End If

End Sub
Salut
Yves

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]