Ventilation de valeur dans un tableau sans doublon

Option Explicit

Sub Répartition()
Dim a, b(), i As Long, n As Long, j As Long
Const Interval As Long = 4
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        a = .Range("a1", Range("a" & Rows.Count).End(xlUp)).Value
        ReDim b(1 To UBound(a, 1) \ Interval + 1, 1 To Interval)
        For i = 1 To UBound(a, 1) Step Interval
            n = n + 1
            For j = 1 To Interval
                If i + j - 1 > UBound(a, 1) Then Exit For
                b(n, j) = a(i + j - 1, 1)
            Next
        Next
        .Cells(1, "C").Resize(UBound(b, 1)).Value = Application.Index(b, 0, 1)
        .Cells(1, "E").Resize(UBound(b, 1)).Value = Application.Index(b, 0, 2)
        .Cells(1, "G").Resize(UBound(b, 1)).Value = Application.Index(b, 0, 3)
        .Cells(1, "I").Resize(UBound(b, 1)).Value = Application.Index(b, 0, 4)
        'la même chose
'        j = 2
'        For i = 1 To UBound(b, 2)
'            .Cells(1, i + j).Resize(UBound(b, 1)).Value = _
'            Application.Index(b, 0, i)
'            j = j + 1
'        Next
    End With
    Application.ScreenUpdating = True
End Sub

Option Explicit

Sub Répartition1()
Dim a, b(), i As Long, n As Long, j As Long
Const Decoupe As Long = 4
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        a = .Range("a1", Range("a" & Rows.Count).End(xlUp)).Value
        ReDim b(1 To UBound(a, 1) \ Decoupe + 1, 1 To Decoupe)
        For i = 1 To UBound(a, 1) Step Decoupe
            n = n + 1
            For j = 1 To Decoupe
                If i + j - 1 > UBound(a, 1) Then Exit For
                b(n, j) = a(i + j - 1, 1)
            Next
        Next
        j = 2
        For i = 1 To UBound(b, 1)
            .Cells(1, i + j).Resize(UBound(b, 2)).Value = _
           Application.Transpose(Application.Index(b, i, 0))
            j = j + 1
        Next
    End With
    Application.ScreenUpdating = True
End Sub