Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B13:G17")) Is Nothing Then
critere1 = Cells(9, Target.Column)
critere2 = Cells(1, 2)
Sheets("BASE").Select
ActiveSheet.Range("$A$1:$E$10000").AutoFilter Field:=2, Criteria1:=critere1
ActiveSheet.Range("$A$1:$E$10000").AutoFilter Field:=5, Criteria1:=critere2
End If
End Sub