Erreur d'execution 1004 sur Macro

Bonjour,

J'ai l'erreur 1004 sur un fichier excel. Je ne comprend pas tout le
code en question...


Voici un morceau du macro qui est mis en cause :


.Range("A2:AE474").AdvancedFilter Action:=3D _
xlFilterCopy, CriteriaRange:=3D. _
Range("Crit=E8res"), CopyToRange:=3D _
.Range("A1000"), Unique:=3DFalse



La totalit=E9 :


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



Pouvez vous m'aider ?

Merci d'avance.

Nicolas.k