Sub Macro1()
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$50").AutoFilter Field:=1, Criteria1:="2"
ActiveWorkbook.CustomViews.Add ViewName:="VALEUR2", PrintSettings:=True, _
RowColSettings:=True
ActiveSheet.Range("$A$1:$A$50").AutoFilter Field:=1, Criteria1:="1"
ActiveWorkbook.CustomViews.Add ViewName:="VALEUR1", PrintSettings:=True, _
RowColSettings:=True
End Sub