Sub FiltrerAM()
Dim plage As Range
Set plage = Worksheets("feuil1").AutoFilter.Range
plage.AutoFilter Field:=1, Criteria1:="<>0"
With Worksheets("feuil1").AutoFilter
If .Filters(13).On Then plage.AutoFilter Field:=13 Else plage.AutoFilter Field:=13, Criteria1:="<>0"
End With
End Sub