[myDearFriend!]

Bonsoir krystof_ii, Tibo, TheLio, Monique,

Dans le classeur ci-joint une solution sans doute à paufiner un peu...

Exceptionnellement, j'ai utilisé l'évènement Calculate() de la Feuil2 pour "capter" la modification du filtre et déclencher le traitement (cet évènement Calculate est à éviter autant que possible, mais je n'ai pas su faire autrement).

J'ai utilisé les 2 procédures ci-dessous :

DANS LE MODULE DE CODE DE LA FEUILLE 2

Option Explicit

Private Sub Worksheet_Calculate()
Static EnCours As Boolean
    If EnCours Then Exit Sub
    EnCours = True
    ValFiltres
    EnCours = False
End Sub

DANS UN MODULE DE CODE STANDARD

Option Explicit

Sub ValFiltres()
'myDearFriend!  -  www.mdf-xlpages.com
Dim CritFiltres(1 To 3, 1 To 5) As Variant
Dim C As Byte
    With Sheets("Feuil1").AutoFilter
        For C = 1 To 5
            With .Filters(C)
                If .On Then
                    CritFiltres(1, C) = .Criteria1
                    If .Operator Then
                        CritFiltres(2, C) = Choose(.Operator, "Et", "Ou")
                        CritFiltres(3, C) = .Criteria2
                    End If
                End If
            End With
        Next
    End With
    With Sheets("Feuil2")
        .Range("D2:H4").Value = CritFiltres
    End With
End Sub

Seule restriction toutefois : pour les filtres portant des dates, les critères seront exprimés de numéro de série.

Cordialement,