Sub essai()
Dim rng As Range, tbl, tblo
'Columns("I:K").Clear
tblo = Range("D2:G2")
For Each rng In Range("C3:C8")
'For Each rng In Range("C3", Range("C3").End(xlDown))
tbl = rng.Offset(, 1).Resize(, 4)
Cells(Rows.Count, "I").End(xlUp)(2).Resize(UBound(tbl, 2)) = rng.Value
Cells(Rows.Count, "J").End(xlUp)(2).Resize(UBound(tbl, 2)) = WorksheetFunction.Transpose(tblo)
Cells(Rows.Count, "K").End(xlUp)(2).Resize(UBound(tbl, 2)) = WorksheetFunction.Transpose(tbl)
Next rng
End Sub