Bonsoir,
Sub Test()
Dim T(), n%, h%, i%, k%
ReDim T(1): a = 0
With ActiveSheet
n = .Cells(.Rows.Count, 1).End(xlUp).Row
h = n \ 4
If h * 4 <> n Then h = h + 1: n = h * 4
ReDim T(h - 1): h = 0
For i = 1 To n Step 4
T(h) = Array(.Cells(i, 1), .Cells(i + 1, 1), .Cells(i + 2, 1), .Cells(i + 3, 1))
h = h + 1
Next i
For i = 1 To h
.Cells(i, 3).Resize(, 4).Value = T(i - 1)
Next i
End With
End Sub