Private Sub CommandButton1_Click()
Dim i&, l&, m$, p As ListObject, c As Range
m = "Dernière ligne de la colonne : " & Chr(10)
Set p = ListObjects("Tableau1")
l = p.ListRows.Count
For i = 1 To p.ListColumns.Count
Set c = p.ListColumns(i).DataBodyRange(1).Offset(l - 1)
If IsEmpty(c.Value) Then Set c = c.End(xlUp)
m = m & Chr(10) & Split(Columns(c.Column).Address(0, 0), ":")(0) & " : " & Format(c.Row, "# ### ##0")
Next
MsgBox m
End Sub