Sub gozyva()
Dim c As Range, d As Range
Sheets("parMacro").Range("A2:I10000").Clear
Set c = Sheets("Données brutes").Range("I2")
Do While c <> ""
Set d = Sheets("ParMacro").Range("I65536").End(xlUp)(2, 1)
d.Resize(Range(c, Cells(c.Row, 256).End(xlToLeft)).Count) = Application.Transpose(Range(c, Cells(c.Row, 256).End(xlToLeft)))
Range(c(1, -7), c(1, 0)).Copy d(1, -7).Resize(Range(c, Cells(c.Row, 256).End(xlToLeft)).Count)
Set c = c(2, 1)
Loop
Sheets("Parmacro").Activate
End Sub