XL 2016 Transposition des lignes en une seule colonne avec VBA

[Yjjou]

Bonjour, je suis débutant en VBA. J'ai un tableau de 90x10 et j'aimerais le regrouper en une seule colonne d'où les lignes deviennent des colonnes respectivement dès la première ligne..de facon à avoir un tableau 900x1.
PS: Je vous ai joint mon fichier excel.
Merci d'avance.

 

[mapomme]

Bonsoir @Yjjou et bienvenur sur XLD

Placez vous sur la feuille avec les données à redistribuer puis exécuter la macro EnUneCol().
Le résultat est mis en colonne G

Sub EnUneCol()
Dim x, s
   Application.ScreenUpdating = False
   Columns("g:g").Clear: Range("G1") = "Résultat"
   For Each x In Range("a1").Resize(Cells(Rows.Count, "a").End(xlUp).Row).Cells
      If x <> "" Then
         s = Split(Application.Trim(x))
         Cells(Rows.Count, "g").End(xlUp).Offset(1).Resize(UBound(s) + 1) = Application.Transpose(s)
      End If
   Next x
End Sub

 

[Yjjou]

Merci infiniment