Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim source As Worksheet, r As Range, a(), n&
Set source = Sheets(IIf(Sh.Index = 1, 2, 1))
For Each r In source.[A9].CurrentRegion.Columns(4).Cells 'traitement de la colonne D
    If Not r.Rows.Hidden Then
        ReDim Preserve a(n)
        a(n) = CStr(r)
        n = n + 1
    End If
Next
If Sh.FilterMode Then Sh.ShowAllData 'RAZ
Sh.[A9].CurrentRegion.AutoFilter 4, Criteria1:=a, Operator:=xlFilterValues
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim source As Worksheet, r As Range, a(), n&
Set source = Sheets(IIf(Sh.Index = 1, 2, 1))
For Each r In source.ListObjects(1).Range.Columns(4).Cells 'tableau structuré, traitement de la colonne D
    If Not r.Rows.Hidden Then
        ReDim Preserve a(n)
        a(n) = CStr(r)
        n = n + 1
    End If
Next
With Sh.ListObjects(1).Range
    .AutoFilter
    .AutoFilter 4, Criteria1:=a, Operator:=xlFilterValues
End With
End Sub