Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub 'sort de la procédure si le changement a lieu ailleurs que dans A1
ActiveSheet.Range("$B$1:$R$195").AutoFilter Field:=13, Criteria1:="<>0", _
Operator:=xlAnd
End Sub