Tri colonne tenant compte des lignes masquees

'#############################################
Sub Tri()
'
' Tri Macro
'

'
    Application.Goto Reference:="maplage"
    ActiveWorkbook.Worksheets("Feuil1").ListObjects("maplage").Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("Feuil1").ListObjects("maplage").Sort.SortFields.Add _
        Key:=Range("maplage[[#All],[Colonne1]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").ListObjects("maplage").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
  
'#############################################