Sub test()
Dim Tableau As Range
Set Tableau = Selection
With Tableau
MsgBox "La sélection part de la colonne " & .Column & vbCrLf & _
"et de la ligne " & .Row & vbCrLf & _
"dernière colonne " & (.Column + .Columns.Count - 1) & vbCrLf & _
"dernière ligne " & (.Row + .Rows.Count - 1)
End With
End Sub