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 |
Partager