Private Sub Worksheet_Activate()
Worksheet_Change [G2] 'lance la macro
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim critere As Range
Set critere = [G1:G2] 'à adapter éventuellement
If Intersect(Target, critere) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Range("A2:E" & Rows.Count).Delete xlUp 'RAZ
Sheets("Feuil1").UsedRange.AdvancedFilter xlFilterCopy, critere, [A1:E1] 'copie le filtre avancé
End Sub