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