Organiser colonne pour impression

Bonjour,

J'ai 1400 données environ en colonne A de Feuille 1. (ici j'ai mis des 1)

Je voudrais en Feuille 2 copier ces données à la suite sur 6 colonnes (une page=33 lignes) puis passer page2 ...il me faut environ 7 pages en Feuille2 pour contenir ma colonne A

Merci

Bonjour,

Une piste :

Sub Test()

    Dim Fe As Worksheet
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Integer
    Dim J As Integer
    Dim K As Integer

    Set Fe = Worksheets("Feuil2")

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For Each Cel In Plage

        'adapter ici pour le nombre de lignes
        If I Mod 33 = 0 Then

            If J > 5 Then J = 0: K = I Else I = K

            J = J + 1

        End If

        I = I + 1

        Fe.Cells(I, J).Value = Cel.Value

    Next Cel

End Sub