Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Afficher les lignes" Then
CommandButton1.Caption = "Masquer les lignes"
Selection.AutoFilter Field:=12
Else
CommandButton1.Caption = "Afficher les lignes"
Selection.AutoFilter Field:=12, Criteria1:="< > 0", Operator:=xlAnd
End If
End Sub