Sub ColToTab()
Dim TabIni() As Variant
Dim TabFinal() As Variant
With Sheets("JOLIMONT")
fin = .UsedRange.Rows.Count
TabInit = .Range("A1:A" & fin).Value
TailleFinal = Int(fin / 8)
ReDim TabFinal(1 To TailleFinal, 1 To 8)
k = 1
For i = LBound(TabInit, 1) To UBound(TabInit, 1) Step 8
For j = 1 To 8
TabFinal(k, j) = TabInit(i + j - 1, 1)
Next j
k = k + 1
Next i
.Range("C2").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)) = TabFinal
End With
End Sub