Macro VBA : Obtenir les numeros de lignes des cellules selectionnees

Sub test()
Dim c As Range, t As String
For Each c In Selection
    t = t & c.Row & vbLf
Next c
MsgBox "lignes des cellules" & vbLf & "sélectionnées :" & vbLf & t
End Sub

Sub Test()
    For Each Cell In Selection
        Range("D6,E12,G16").Select
        Lignes = Lignes & Cell.Row & ","
        Colonnes = Colonnes & Cell.Column & ","
    Next Cell
    Lignes = Left(Lignes, Len(Lignes) - 1)
    Colonnes = Left(Colonnes, Len(Colonnes) - 1)
    MsgBox "Le résultat est pour les lignes : " & Lignes & _
        " et pour les colonnes " & Colonnes
End Sub