Sheets("ListeDesCDs").Select
Selection.AutoFilter Field:=2, Criteria1:="Artistes variés"
Range("a1").CurrentRegion.Copy
Sheets("AV").Select
Sheets("AV").Range("a1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False