Bonjour,
la même question a été posée il n'y a pas longtemps ...
Je recopie ce que j'avais répondu
avec ce code tu récupères le numéro de ligne de chaque cellule sélectionnée dans une feuille.
Par contre, si tu sélectionnes 2 cellules sur la même ligne, alors tu auras 2 fois le numéro de ligne dans le tableau.
Ce code n'enlève pas les doublons.
Dim tabCellules(), compteur As Integer
Dim cellule As Range
compteur = 0
For Each cellule In Selection
ReDim Preserve tabCellules(compteur)
tabCellules(compteur) = cellule.Row
compteur = compteur + 1
Next cellule
ReDim Preserve tabCellules(compteur - 1)
For i = 0 To UBound(tabCellules)
MsgBox tabCellules(i)
Next i
A toi de voir si les doublons te dérangent (tu peux toujours faire une macro pour les supprimer).
Fanny