Microsoft 365 Filtrer dans une variable-tableau : possible ?

 Parcourir les zones filtrées pour récupérer les données
On Error Resume Next ' Ignorer l'erreur si aucune cellule filtrée
For Each area In tbl.DataBodyRange.SpecialCells(xlCellTypeVisible).Areas
For Each cell In area.Rows

Dim Area
Dim R
dim Tab_Temp()
With Range("t_" & YearSelect).ListObject 'Avec le Tableau de la base de Données
         If Not (.DataBodyRange Is Nothing) Or .ListRows.Count = 0 Then  'Si Non Vide       
                  If .AutoFilter.FilterMode Then .AutoFilter.ShowAllData 'On supprime les filtres eventuels
                   With .Sort ‘On va trier le Tableau en fonction des Valeurs des Colonnes « Date » et « Arrivée »du Tableau Structuré
                      With .SortFields
                                .Clear
                                .Add2 Key:=Range("t_" & Year_Select).ListObject.ListColumns("Date").DataBodyRange, _
                          SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
                                .Add2 Key:=Range("t_" & Year_Select).ListObject.ListColumns("Arrivée").DataBodyRange, _
                          SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal                     
                      End With 'SortFields
                               .Header = xlYes ' Le tableau contient des en-têtes
                               .Apply
                   End With 'Sort
'**************************************************************
                   With .Range 'On va Filtrer en fonction de 2 Dates
                           .AutoFilter Field:=Range("t_" & Year_Select).ListObject.ListColumns("Date").Index, _
                                                                            Criteria1:=">=" & DateDebut, _
                                                                                     Operator:=xlAnd, _
                                                                            Criteria2:="<=" & DateFin
                   End With 'Range
'**************************************************************
' Vérifier si des lignes sont retournées par le filtre
         If .DataBodyRange.Height > 0 Then ‘s’il y a au moins une ligne en résultat du Filtre « .Height > 0 »
' Parcourir chaque zone filtrée
 For Each Area In .DataBodyRange.SpecialCells(xlCellTypeVisible).Areas
   For Each R In Area.Rows ‘Parcourir les Lignes de chaque Zone filtrée pour récupérer les données
                Col = Col + 1
      ReDim Preserve Tab_Temp(1 To .ListColumns.Count , 1 To Col) 'On redimensionne le Tableau                      '                          ‘Parcourir les colonnes de "t_xxxx" pour récupérer les valeurs
                          For L = 1 To .ListColumns.Count 'Pour chaque Colonnes
                   Tab_Temp(L , Col)=R.Cells(L) 'pour l'exemple
                                    
                         Next
   Next R
 Next Area

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim nom$, style$
nom = Sh.ListObjects(1).Name
style = Sh.ListObjects(1).TableStyle
Application.ScreenUpdating = False
With Sheets("Pannes")
    If Sh.Name = .Name Then Exit Sub
    With .ListObjects(1).Range
        .AutoFilter: .AutoFilter 'affiche tout
        Sh.Cells.Delete 'RAZ
        .EntireColumn.Copy Sh.[A1] 'copie tout le tableau
    End With
End With
Sh.ListObjects(1).Name = nom
Sh.ListObjects(1).TableStyle = style
With Sh.ListObjects(1).Range
    .Columns(8).Insert xlToRight 'colonne auxiliaire
    .Cells(2, 8) = "=1/(RC[1]=""" & Replace(Sh.Name, "é", "e") & """)"
    .Columns(8) = .Columns(8).Value 'supprime les formules
    .Sort .Columns(8), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
    On Error Resume Next 'si aucune SpecialCell
    .Columns(8).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les lignes des valeurs d'erreur
    .Columns(8).Delete xlToLeft 'supprime la colonne auxiliaire
End With
End Sub

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

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim nom$, style$
nom = Sh.ListObjects(1).Name
style = Sh.ListObjects(1).TableStyle
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
    With .ListObjects(1).Range
        .AutoFilter: .AutoFilter 'affiche tout
        Sh.Cells.Delete 'RAZ
        .EntireColumn.Copy Sh.[A1] 'copie tout le tableau
    End With
    .Parent.Close False 'ferme le fichier source
End With
Sh.ListObjects(1).Name = nom
Sh.ListObjects(1).TableStyle = style
With Sh.ListObjects(1).Range
    .Columns(8).Insert xlToRight 'colonne auxiliaire
    .Cells(2, 8) = "=1/(RC[1]=""" & Replace(Sh.Name, "é", "e") & """)"
    .Columns(8) = .Columns(8).Value 'supprime les formules
    .Sort .Columns(8), xlAscending, Header:=xlYes 'tri pour regrouper et accélérer
    On Error Resume Next 'si aucune SpecialCell
    .Columns(8).SpecialCells(xlCellTypeConstants, 16).EntireRow.Delete 'supprime les lignes des valeurs d'erreur
    .Columns(8).Delete xlToLeft 'supprime la colonne auxiliaire
End With
End Sub