récupérer coordonnées d'une sélection de cellules

Sub adeus()
Dim cell As Range
Dim Res As String
Res = Selection.Cells.Count & " cellule(s)" & Chr(10)
Res = Res & "Adresse" & vbTab & "ligne" & vbTab & "colonne" & Chr(10)
For Each cell In Selection
Res = Res & cell.Address & vbTab & cell.Row & vbTab & cell.Column & Chr(10)

Next
MsgBox Res
End Sub

Sub Tress()
Dim area As Range
Dim Res As String
Res = Selection.Cells.Count & " cellule(s)" & Chr(10)
Res = Res & "répartie(s) en " & Selection.Areas.Count & " zone(s) distincte(s)" & Chr(10)
Res = Res & "Adresse" & vbTab & "ligne(s)" & vbTab & "colonne(s)" & Chr(10)
For Each area In Selection.Areas
Res = Res & area.Address & vbTab & area.Rows.Count & vbTab & area.Columns.Count & vbTab & area.Cells.Count & Chr(10)

Next
MsgBox Res
End Sub