Sub Filtre()
Application.ScreenUpdating = False
xDerLig = Sheets("TEST").Range("A65536").End(xlUp).Row
With Sheets("TEST")
Range("TEST!A5:F" & xDerLig).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("I1:K2"), CopyToRange:=.Range("I5:M5"), Unique:=True
End With
Application.ScreenUpdating = True
End Sub