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