Tri avec extraction hors tableau

Bonjour,

Ave Excel 97 je faisais :

Sub Extraction()
Dim BaseDonnées As String
SelectListe
BaseDonnées = Selection.Address
Range("BaseDonnées").AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("ZoneCritères")
'criteriacopy:= Range("ZoneExtraction")

End Sub

Ne fonctionne pas avec Excel 2007 ; je oense que c'est CriteraiCopy qui n'est plus reconnu.
Pouvez vous m'aider.
Merci