XL 2019 Nommer un tableau en fonction du nom du classeur

Private Sub Workbook_Open()
    If Worksheets("Feuil1").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
    Worksheets("Feuil1").ListObjects(1).Name = ActiveWorkbook.Name
End Sub

Private Sub Workbook_Open()
Worksheets("Accueil").Activate
    Range("Q7") = ActiveWorkbook.BuiltinDocumentProperties(12)
    Range("Q10") = Environ("UserName")
End Sub

Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub

Private Sub Workbook_Open()
    If Worksheets("Feuil1").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
    Worksheets("Feuil1").ListObjects(1).Name = ActiveWorkbook.Name
End Sub