Sheets("Sheet1").Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Sheet2").Range("A1"), Unique:=True

Regards
Pascal

"Mister Dolopo" a écrit dans le message de
...
How with code would I do an auto filer - unique values and
copy these values to another sheet?

thanks