XL 2013 Sous.Total et plage dynamique

Option Explicit
Dim derlig&, plage As Range

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    derlig = Range("a" & Rows.Count).End(xlUp).Row
    Set plage = Range("a1:j" & derlig)
    plage.AutoFilter Field:=1, Criteria1:=ActiveCell.Value
    [L1] = WorksheetFunction.Subtotal(3, Range("b2:b" & derlig))
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    derlig = Range("a" & Rows.Count).End(xlUp).Row
    Set plage = Range("a1:j" & derlig)

    If Target.Address = "$A$1" Then
        plage.AutoFilter
        [L1] = ""
    Else
        Exit Sub
    End If
End Sub