Erreur d'éxecution 9

Bonjour,
j'ai créé une macro qui me met un message "erreur d'éxécution 9".
Pourquoi ?
Voici le code, et en pièce jointe mon fichier.
Sub Macro1()

Sheets("RESULTAT").Select
Cells.ClearContents
Sheets("2012RH008").Select

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:="Monsieur"
Range("A1:V" & Range("A65535").End(xlUp).Row).Select
Selection.Copy
Sheets("RESULTAT").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("2012RH008").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1


Application.ScreenUpdating = True
MsgBox ("Opération de transfert terminée")
End Sub