Microsoft 365 obtenir le nom d'un tableau

Option Explicit
Function NomTableau(ByVal R As Range) As String
   Application.Volatile
   Dim LOt As ListObject
   Set LOt = R.ListObject
   If Not LOt Is Nothing Then NomTableau = LOt.Name
   End Function
Sub test()
   Dim Nom As String
   Nom = NomTableau(ActiveCell)
   If Nom = "" Then
      MsgBox "pas tableau"
   Else
      MsgBox "tableau """ & Nom & """."
      End If
   End Sub

Sub test()
    MsgBox GetNameTableOfCell(ActiveCell)
End Sub

Function GetNameTableOfCell(ByVal cel As Range) As String
'renvoie "FAUX" si pas de table
    Dim LstO As lisobject
    GetNameTableOfCell = CStr(False)
    Set LstO = cel.ListObject
    If Not LstO Is Nothing Then GetNameTableOfCell = lo.Name
End Function

Sub test2()
    MsgBox GetNameRangeOfCell(ActiveCell)
End Sub

Function GetNameRangeOfCell(ByVal cel As Range) As String
'renvoie "FAUX" si pas de name
    Dim Nam As Name, Nom$
    GetNameRangeOfCell = CStr(False)
    For Each Nam In Names
        Nom = Replace(Nam.RefersTo, "=", "")
        If Not Intersect(Range(Nom), cel) Is Nothing Then GetNameRangeOfCell = Nam.Name
    Next
End Function

Sub test()
Dim cel As Range
Dim nom As Variant

Set cel = Selection
nom = NomTableau(cel)

If IsArray(nom) Then
    MsgBox Join(nom)
Else
    MsgBox "pas tableau"
End If
End Sub