Citation :
Sub TriVN()
'
' TriVN Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+F
'
ActiveSheet.Range("$A$1:$Q$21240" ).AutoFilter Field:=10, Criteria1:="25712"
ActiveSheet.Range("$A$1:$Q$21240" ).AutoFilter Field:=10, Criteria1:= _
"=25712", Operator:=xlOr, Criteria2:="=40050"
ActiveSheet.Range("$A$1:$Q$21240" ).AutoFilter Field:=10, Criteria1:=Array( _
), Operator:=xlFilterValues
"25712", "27253", "27331", "27332", "29387", "29388", "33006", "34175", "36394", "37199", "37841", "37842", "40049", "40050", "42617", "43440", "44188", "44349", "46159", "46254", "46255", "46256", "46257", "46318", "47282", "47415", "47494", "47531", "47532", "47686", "48573", "48579", "48594", "48595", "48596", "48597", "48598", "48639", "48778", "48780", "48781", "48782", "48783", "48784", "48785", "48786", "49232", "49233", "49234", "49329", "49330", "49331", "49332", "49333", "49334", "49335", "49336", "49337", "49338", "50104", "50105", "50258", "50259", "50687", "50696", "50718", "50719", "50720", "50790", "50957", "51344", "51345", "51346", "51453", "51536", "51537", "51538", "51539", "51540", "51541", "51587", "51628", "51709", "51713", "51715", "51716", "51905", "52004", "52140", "52228", "52229", "52230", "52393", "52394", "52395", "52396", "52397", "52398 ","52399", "52400", "52401", "52402", "52403", "52404", "52409", "52548", "52549", "52550", "52639", "52640", "52736", "52737", "52738", "52739
", "52740", "52741", "52895", "52903", "52904", "52942", "52980", "54352", "54353", "54354", "54355", "54356", "54357", "54585" ), Operator:=xlFilterValues
End Sub
|