[RESOLU] Filtre automatique appliqué sur un filtre automatique d'une autre feuille

Option Explicit

Private Sub Worksheet_Activate()
Dim AFlt1 As AutoFilter, Zone As Range, Flt As Filter, N As Long
If Me.FilterMode Then
   Me.ShowAllData
ElseIf Not Me.AutoFilterMode Then
   Me.Range(Me.[A1], Me.UsedRange).AutoFilter
   End If
Set Zone = Me.AutoFilter.Range
Set AFlt1 = Feuil1.AutoFilter
For N = 1 To AFlt1.Filters.Count
   Set Flt = AFlt1.Filters(N)
   If Flt.On Then
      On Error Resume Next
      Zone.AutoFilter N, Flt.Criteria1, Flt.Operator, Flt.Criteria2
      If Err Then Err.Clear: Zone.AutoFilter N, Flt.Criteria1, Flt.Operator
      If Err Then Err.Clear: Zone.AutoFilter N, Flt.Criteria1
      If Err Then MsgBox Err.Description: Stop
      On Error GoTo 0
      End If
   Next N
End Sub