Probleme erreur 1004/400 totalement random

Bonjour, dans le cadre de mes etudes, je doit réalisé une macro pour traiter un fichier de P-alpha (Pression par rapport a un angle, je suis dans un BTS moteur a combustion interne.). Je viens de finir ma macro, et je doit maintenant la commenter. elle fonctionnait parfaitement jusque la, je n'ai rien changer, et en execution pas a pas, elle m'indique une erreur 400, et depuis, a chaque execution de la macro, j'ai une erreur 1004 qui apparait ! Voici mes lignes de code problematique :

Sheets.Add After:=Sheets(Sheets.Count)

Sheets(2).Name = "Données_préparées"

'Retour a la feuille donnée brute

Sheets("Données_brutes").Select

'Création d'une variable pour le nombre de boucle (= Nombre d'essai)

nb_boucle = (Range("C13") * nb_cycle) / 1000

'Boucle de copie, qui s'adapte au nombre d'essai grace à la variable ci dessus, et permet d'ouvrir n'importe quel fichier ayant la meme presentation. (le Step 2 sert ici a ne copier qu'une seul ligne sur 2)

For c = 1 To nb_boucle + 1

Range(Cells((c * 1000) + 19 - 1000, 1), Cells(c * 1000 + 19 - 1000, nb_cyl + 1)).Select (probleme Ici) !

For j = (c * 1000) + 19 - 1000 To (c * 1000) + 19 Step 2

Union(Selection, Range(Cells(j, 1), Cells(j, nb_cyl + 1))).Select

Next

En vous remerciant !

EDIT: Probleme regler ! au lieu de crée un module pour mon code, je l'ai copier directement dans un classeur, d'ou l'erreur !