Pb VB Excel 2003

Bonjour à tous et à toutes,

Je voudrais, pour un cours, utiliser un fichier excel. Il fonctionne parfaitement sur Excel 2000 mais provoque une erreur sur Excel 2003 (seule version que je peux utiliser, bien sûr).
Les données sont entrées dans une feuille "Données" unel'erreur d'éxecution '1004' est provoquée dans les autres feuilles censées utiliser les données. Le débogueur la situe dans la routine suivante

Sub Extraire()
Application.ScreenUpdating = False
Sheets("Menu").Range("Menu").ClearContents
With Sheets("Données")
.Select
.Range("A2:AE474").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=. _
Range("Critères"), CopyToRange:= _
.Range("A1000"), Unique:=False
.Range("a1000:aa1100").Copy
End With
Sheets("Menu").Select
Range("a2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("a1").Select
Sheets("Données").Range("extrait").Clear
bAjour = True
End Sub

à la ligne: .Range("A1000"), Unique:=False

Mes connaissances en VB étant malheureusement proches du zéro absolu, quelqu'un peut-il m'aider ?
Merci d'avance.