XL 2013 Couper coller les valeurs toutes les 55 lignes

[BRUNO28]

Bonjour à tous,
A partir de la Colonne "A", j'aimerai couper et coller les valeurs de la colonne tous les 55 cellules dans la colonne suivante.
Exemple:
Colonne A, les valeurs de A1à A55
Colonne B, les valeurs de A56 à A110
Colonne C, les valeurs de A111 à A165
Colonne D, les valeurs de A166 à A220 ... etc ... etc ...

Merci de votre aide.

 

[pierrejean]

Bonjour BRUNO28

Cette macro devrait faire l'affaire

Sub test()
tablo = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
col = 1
For n = LBound(tablo, 1) To UBound(tablo, 1) Step 55
  Range("A" & n & ":A" & n + 54).Copy Destination:=Cells(1, col)
  col = col + 1
Next
Range("A56:A" & Rows.Count).ClearContents
End Sub

 

[BRUNO28]

Grand merci à toi Pierrejean, c'est parfait! comme toujours.
A très bientôt et MERCI encore pour ton efficacité.
Bruno