Function AdresseFinDeTableau() As String
Application.Volatile
Dim finTab As Long
With [Numero].ListObject.Range
finTab = .Find("*", , xlValues, , xlByRows, xlPrevious).Row
AdresseFinDeTableau = .Rows(finTab - .Row + 1).Address(0, 0)
End With
End Function