Microsoft 365 Filtrer dans une variable-tableau : possible ?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With Sheets("Pannes")
    If Sh.Name = .Name Then Exit Sub
    If .ListObjects(1).DataBodyRange Is Nothing Then
1       If Not Sh.ListObjects(1).DataBodyRange Is Nothing Then Sh.ListObjects(1).DataBodyRange.Delete xlUp
        Exit Sub
    End If
    If Application.CountIf(.ListObjects(1).DataBodyRange.Columns(8), Replace(Sh.Name, "é", "e")) = 0 Then GoTo 1
    With .ListObjects(1).DataBodyRange
        .AutoFilter 8, Replace(Sh.Name, "é", "e") 'il ne faut pas d'accents
        Application.ScreenUpdating = False
        If Not Sh.ListObjects(1).DataBodyRange Is Nothing Then Sh.ListObjects(1).DataBodyRange.Delete xlUp 'RAZ
        .SpecialCells(xlCellTypeVisible).Copy Sh.ListObjects(1).Range(2, 1) 'copier-coller
        .AutoFilter 8
    End With
End With
End Sub

Private Sub Workbook_Open()
Workbook_SheetActivate ActiveSheet 'lance la macro
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.ScreenUpdating = False
On Error Resume Next
With Workbooks.Open(ThisWorkbook.Path & "\Fichier source.xlsx").Sheets(1) 'nom du fichier à adapter
    If Err Then MsgBox "Le fichier 'Fichier source.xlsx' est introuvable !", 4: Exit Sub
    On Error GoTo 0
    If .ListObjects(1).DataBodyRange Is Nothing Then
1       If Not Sh.ListObjects(1).DataBodyRange Is Nothing Then Sh.ListObjects(1).DataBodyRange.Delete xlUp
        GoTo 2
    End If
    If Application.CountIf(.ListObjects(1).DataBodyRange.Columns(8), Replace(Sh.Name, "é", "e")) = 0 Then GoTo 1
    With .ListObjects(1).DataBodyRange
        .AutoFilter 8, Replace(Sh.Name, "é", "e") 'il ne faut pas d'accents
        If Not Sh.ListObjects(1).DataBodyRange Is Nothing Then Sh.ListObjects(1).DataBodyRange.Delete xlUp 'RAZ
        .SpecialCells(xlCellTypeVisible).Copy Sh.ListObjects(1).Range(2, 1) 'copier-coller
        .AutoFilter 8
    End With
2   .Parent.Close False 'ferme le fichier source
End With
End Sub

Range("NomListObject").ListObject.DataBodyRange.Cells(1, 1)