Sub Test()
Dim t As ListObject

Set t = Range("t_contacts").ListObject
Debug.Print "Le tableau contient " & t.ListColumns.Count & " colonnes."
Debug.Print "Le tableau contient " & t.ListRows.Count & " lignes."
End Sub