Tri BaseDonnée hors base

Bonjour,

J'essaie de trier une base de donnée avec champs Critères et Extraction.

J'ai repris un code que j'avais écrit avec Excel 97 mais la dernière ligne n'est pas reconnue par Ecvel 2007.

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

End Sub

Pouvez vous me dépanner ?

Remerciements] et salutations.