manipulation de Range

Bonjour,

J'ai dans ma macro la selection par l'utilisateur de certaines ligne par exemple

Range("2:2,6:6,9:9").Select

Comment faire pour

1) Savoir que le range correspond à 3 lignes la 2, la 6 et la 9 ???

nblignes = ..... : resultat = 3


2) recupéré les num de lignes???

utiliser d'un manière automatique

For i=nblignes To 1 Step -1

Range("A1").CurrentRegion.Rows(X).Select

Avec X correspond à

Range("A1").CurrentRegion.Rows(2).Select

Range("A1").CurrentRegion.Rows(6).Select

Range("A1").CurrentRegion.Rows(9).Select