Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Filtre As Range
If Not Intersect(Target, Columns("A:A")) Is Nothing Then
Filtre = ActiveCell.Offset(1, 0).Column
Application.ScreenUpdating = False
[A1:I37].AutoFilter Field:=Filtre, Criteria1:=ActiveCell, Operator:=xlAnd
End If
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Columns("C:C")) Is Nothing Then [A1:I37].AutoFilter
If Target.Count > 1 Then Exit Sub
End Sub