Bonjour à toutes et à tous,


J'ai un petit problème avec une macro excel, et malgré bcp de recherche, ne trouve pas la solution. Help !

J'ai fait une macro pour copier certaines données d'une feuille (Feuil2) vers une autre (Feuil1) :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub ExtractionDonnees()
 
For j = 0 To 650
 
Worksheets("Feuil1").Cells(1, j + 3).Value = Worksheets("Feuil2").Cells(3, 13 + 51 * j).Value
Worksheets("Feuil1").Cells(2, j + 3).Value = Worksheets("Feuil2").Cells(2, 10 + 51 * j).Value
Worksheets("Feuil1").Cells(3, j + 3).Value = Worksheets("Feuil2").Cells(2, 11 + 51 * j).Value
Worksheets("Feuil1").Cells(4, j + 3).Value = Worksheets("Feuil2").Cells(2, 12 + 51 * j).Value
Worksheets("Feuil1").Cells(5, j + 3).Value = Worksheets("Feuil2").Cells(3, 19 + 51 * j).Value
Worksheets("Feuil1").Cells(6, j + 3).Value = Worksheets("Feuil2").Cells(3, 20 + 51 * j).Value
Worksheets("Feuil1").Cells(7, j + 3).Value = Worksheets("Feuil2").Cells(3, 21 + 51 * j).Value
Worksheets("Feuil1").Cells(8, j + 3).Value = Worksheets("Feuil2").Cells(3, 22 + 51 * j).Value
Worksheets("Feuil1").Cells(9, j + 3).Value = Worksheets("Feuil2").Cells(3, 23 + 51 * j).Value
Worksheets("Feuil1").Cells(10, j + 3).Value = Worksheets("Feuil2").Cells(3, 24 + 51 * j).Value
Worksheets("Feuil1").Cells(11, j + 3).Value = Worksheets("Feuil2").Cells(4, 45 + 51 * j).Value
Worksheets("Feuil1").Cells(12, j + 3).Value = Worksheets("Feuil2").Cells(5, 45 + 51 * j).Value
Worksheets("Feuil1").Cells(13, j + 3).Value = Worksheets("Feuil2").Cells(6, 45 + 51 * j).Value
Worksheets("Feuil1").Cells(14, j + 3).Value = Worksheets("Feuil2").Cells(7, 45 + 51 * j).Value
Worksheets("Feuil1").Cells(15, j + 3).Value = Worksheets("Feuil2").Cells(8, 45 + 51 * j).Value
Worksheets("Feuil1").Cells(16, j + 3).Value = Worksheets("Feuil2").Cells(9, 45 + 51 * j).Value
Worksheets("Feuil1").Cells(17, j + 3).Value = Worksheets("Feuil2").Cells(4, 46 + 51 * j).Value
Worksheets("Feuil1").Cells(18, j + 3).Value = Worksheets("Feuil2").Cells(5, 46 + 51 * j).Value
Worksheets("Feuil1").Cells(19, j + 3).Value = Worksheets("Feuil2").Cells(6, 46 + 51 * j).Value
Worksheets("Feuil1").Cells(20, j + 3).Value = Worksheets("Feuil2").Cells(7, 46 + 51 * j).Value
Worksheets("Feuil1").Cells(21, j + 3).Value = Worksheets("Feuil2").Cells(8, 46 + 51 * j).Value
Worksheets("Feuil1").Cells(22, j + 3).Value = Worksheets("Feuil2").Cells(9, 46 + 51 * j).Value
 
    Next j
 
End Sub
Et j'obtiens le message d'erreur suivant :
"Erreur définie par l'application et par l'objet"

et quand je rentre dans la macro, je vois la première ligne "worksheets... " surlignée en jaune.
Quand je clique droit sur "Worksheets" et sur "définition", le message "impossible d'aller a 'worksheets' qui est caché" s'affiche.

J'ai déja essayé de mettre des choses du genre
Worksheets("Feuil1").Visible = True

Mais rien n'y fait !

Une idée ??

Merci pour votre aide