Sub Macro1()
Range("D2").FormulaR1C1 = "=OR(RC[-1]=300,RC[-1]=600,RC[-1]=800,RC[-1]=900)"
Range("A1:C15").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("D1:D2"), Unique:=False
End Sub
Mais je trouve un résultat différent du tien avec tes critères.
Bon, hier, j'avais fait cela en 30 secondes. C'est vrai qu'avec le code de Hervé, j'ai tout de suite vu la boulette (il faut toujours partir du bas pour supprimer ).
Sinon, avce la prosition de JM en filtre élaboré, voir le fichier.
PS:Pedram: je n'ai pas ouvert ta seconde pièce jointe. Chaque chose en son temps .