Couper ligne pour mettre en colonne

Bonjour à tous !

Existe-t-il un moyen "automatique" de couper une ligne pour la mettre en colonne. J'ai plusieurs fichiers à traiter qui n'ont pas le même nombre de ligne. 3000, 3500, 4000 lignes !

Autrement dit, j'ai ça :

que je souhaiterais transformer en ceci :

Un grand merci pour votre aide.

Cordialement

Bonjour

Il faudrait plusieurs lignes sur une feuille Excel pour voir comment elles se suivent

Cordialement

Voici un exemple

Merci

Bonjour

Code Module

Sub Mise_en_Forme()
Dim i As Integer, J As Integer
Range("A2:A" & [A65000].End(xlUp).Row + 1).Select
i = Selection.Rows.Count / 2
For J = 1 To i
ActiveCell.Offset(1, 0).Select
Range(ActiveCell, ActiveCell.Offset(0, 5)).Select
Selection.Cut
ActiveCell.Offset(-1, 6).Select
ActiveSheet.Paste
Selection.Offset(1, 0).EntireRow.Delete
ActiveCell.Offset(1, -6).Select
Next
End Sub

Cordialement

Bonjour,

Je vais tester ça !! Merci heu non mille mercis