Option Explicit
Dim lig, x As Long
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
On Error Resume Next
Range("A1:O74000").AutoFilter Field:=10, Criteria1:="Non", Operator:=xlAnd
lig = Range("I74000").End(xlUp).Row
For x = 2 To lig
If Range("I" & x) = "oui" Then Range("I" & x).EntireRow.Hidden = True
Next x
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lig = Range("I74000").End(xlUp).Row
For x = 2 To lig
If Not Intersect(Target, Range("G" & x)) Is Nothing Then Range("A1:O74000").AutoFilter
Next x
End Sub