Découper une colonne de 13K lignes en plusieurs toutes les 551 lignes

coucou,

Pas moyen de trouver une soluce sur internet ...

J'ai besoin de faire une macro ou autre qui transforme ça:

Etc....

en ça:

sachant qu'un chiffre représente 551 lignes lol

j'ai trouvé ça mais cela se base sur une valeur en A1 que je ne peux pas utiliser (cellules vides):

Private Sub CommandButton1_Click()
Dim c As Range, d As Range, Dest As Range, Fin As Range
Set Dest = [C1]: Set Fin = [A60000].End(xlUp)(2, 1)
Fin = [A1]
With Range("A2:A36")
  Set c = .Find(After:=[A2], what:=[A1].Text, LookIn:=xlValues, lookat:=xlWhole)
     Range([A1], c(0, 1)).Copy Dest(1, 0)
     Do While c.Address <> Fin.Address
       Set d = .FindNext(c)
       Range(c, d(0, 1)).Copy Dest
       Set Dest = Dest(1, 2)
       Set c = d
     Loop
End With
Fin = ""
End Sub

merci par avance

Bonjour,

A+

le voilà, j'ai extrait avec PQ environ 250 excels ayant la même forme de tableau et j'ai du coup les 250 x 551 lignes de la colonne quantité que je voudrais aligner pour avoir le cumul de chaque ligne (d'où le besoin de les aligner..).

bonjour,

une proposition : éclatement des lignes de la colonne A sur 551 lignes par colonne à partir de la colonne B

Sub aaargh()
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    col = 1
    For i = 1 To dl + 550 Step 551
        col = col + 1
        Cells(1, col).Resize(551, 1).Value = Cells(i, 1).Resize(551, 1).Value
    Next i
End Sub