Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$L$1" Then Exit Sub
Cancel = True
[l1] = IIf([l1] = "Masquer", "Afficher", "Masquer")
If [l1] = "Masquer" Then
Range("$G$1:$G$2").AutoFilter Field:=1
Else
Range("$G$1:$G$2").AutoFilter Field:=1, Criteria1:=">=" & CLng(Date)
End If
End Sub