Erreur d'éxecution 1004

Fermé
Alducard Messages postés 1 Date d'inscription vendredi 1 octobre 2010 Statut Membre Dernière intervention 1 octobre 2010 - 1 oct. 2010 à 12:20
Bonjour à tous,

Je pense que, vous avez du avoir pas mal de messages de ce type. J'aurai besoin d'un coup de main sur une erreur d'exécution '1004' que, je n'arrive pas a résoudre. J'aide une amie a résoudre un soucis sur l'automatisation de son fichier. J'en ai résolus une partie mais, je bloque sur celle-ci: Erreur d'exécution 1004':
La commande n'a pas pu être exécutée avec la plage spécifiée. Sélectionnez une seule cellule dans la plage et réessayez.
J'utilise office 2007 et elle aussi. Je crois que ce code a été fait sous 2003. Ca a peut-être un impact.

Je vous remercie par avance de vos réponses.
Bonne journée

Voici le code en question:
Rows("1:5").Select
Range("A5").Activate
Selection.Delete Shift:=xlUp
Range("C1:D1").Select
Range("D1").Activate
Selection.Delete Shift:=xlToLeft
Columns("AH:AH").Select
Selection.Delete Shift:=xlToLeft
Range("AJ2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-33]:RC[-3])"
Range("AJ2").Select
Selection.AutoFill Destination:=Range("AJ2:AJ901"), Type:=xlFillDefault
Range("AJ2:AJ901").Select
ActiveWindow.ScrollRow = 794
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 666
ActiveWindow.ScrollRow = 642
ActiveWindow.ScrollRow = 614
ActiveWindow.ScrollRow = 584
ActiveWindow.ScrollRow = 555
ActiveWindow.ScrollRow = 526
ActiveWindow.ScrollRow = 503
ActiveWindow.ScrollRow = 478
ActiveWindow.ScrollRow = 458
ActiveWindow.ScrollRow = 444
ActiveWindow.ScrollRow = 426
ActiveWindow.ScrollRow = 417
ActiveWindow.ScrollRow = 414
ActiveWindow.ScrollRow = 407
ActiveWindow.ScrollRow = 403
ActiveWindow.ScrollRow = 401
ActiveWindow.ScrollRow = 398
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 394
ActiveWindow.ScrollRow = 392
ActiveWindow.ScrollRow = 391
ActiveWindow.ScrollRow = 389
ActiveWindow.ScrollRow = 383
ActiveWindow.ScrollRow = 380
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 360
ActiveWindow.ScrollRow = 349
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 285
ActiveWindow.ScrollRow = 255
ActiveWindow.ScrollRow = 221
ActiveWindow.ScrollRow = 210
ActiveWindow.ScrollRow = 194
ActiveWindow.ScrollRow = 190
ActiveWindow.ScrollRow = 183
ActiveWindow.ScrollRow = 178
ActiveWindow.ScrollRow = 173
ActiveWindow.ScrollRow = 169
ActiveWindow.ScrollRow = 164
ActiveWindow.ScrollRow = 156
ActiveWindow.ScrollRow = 151
ActiveWindow.ScrollRow = 149
ActiveWindow.ScrollRow = 148
ActiveWindow.ScrollRow = 144
ActiveWindow.ScrollRow = 142
ActiveWindow.ScrollRow = 137
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 133
ActiveWindow.ScrollRow = 131
ActiveWindow.ScrollRow = 130
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 123
ActiveWindow.ScrollRow = 121
ActiveWindow.ScrollRow = 119
ActiveWindow.ScrollRow = 117
ActiveWindow.ScrollRow = 115
ActiveWindow.ScrollRow = 112
ActiveWindow.ScrollRow = 110
ActiveWindow.ScrollRow = 108
ActiveWindow.ScrollRow = 106
ActiveWindow.ScrollRow = 105
ActiveWindow.ScrollRow = 103
ActiveWindow.ScrollRow = 101
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 92
ActiveWindow.ScrollRow = 87
ActiveWindow.ScrollRow = 81
ActiveWindow.ScrollRow = 78
ActiveWindow.ScrollRow = 69
ActiveWindow.ScrollRow = 65
ActiveWindow.ScrollRow = 60
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 51
ActiveWindow.ScrollRow = 47
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Range("AA3").Select
Sheets("Récupéré_Feuil1").Select
Sheets("Récupéré_Feuil1").Copy Before:=Sheets(1)
Sheets("Récupéré_Feuil1").Select
Sheets("Récupéré_Feuil1").Copy Before:=Sheets(1)
Sheets("Récupéré_Feuil1").Select
Sheets("Récupéré_Feuil1").Move Before:=Sheets(1)
Sheets("Récupéré_Feuil1 (3)").Select
Sheets("Récupéré_Feuil1 (3)").Name = "INTERIM"
Sheets("Récupéré_Feuil1 (2)").Select
Sheets("Récupéré_Feuil1 (2)").Name = "MO"
Range("B25").Select
Sheets("INTERIM").Select
Cells.Select
Range("B18").Activate
Selection.AutoFilter (C'est a ce niveau que, j'ai l'erreur))
ActiveSheet.Range("$A$2:$AJ$901").AutoFilter Field:=2, Criteria1:="=I*", _
Operator:=xlAnd
ActiveSheet.Range("$A$1:$AJ$901").AutoFilter Field:=36, Criteria1:="<>0", _
Operator:=xlAnd
Sheets("MO").Select
Cells.Select
Range("E22").Activate
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AJ$901").AutoFilter Field:=2, Criteria1:="=0*", _
Operator:=xlAnd
ActiveSheet.Range("$A$1:$AJ$901").AutoFilter Field:=36, Criteria1:="<>0", _
Operator:=xlAnd
Columns("C:AH").Select
Selection.ColumnWidth = 3.29
Range("AB51:AF51").Select
Sheets("INTERIM").Select
Columns("C:AH").Select
Selection.ColumnWidth = 3
Range("Q904").Select
End Sub