Compiler X colonnes en une seule

Bonjour,

Je continue ma journée VBA avec une nouvelle requête
J'aurais besoin de compiler 523 colonnes de valeurs (nbre de valeurs par colonne est variable mais au minimum 1) en une seule en conservant l'ordre des données : valeurs de la colonne A (A1:A...) puis de la colonne B... en n'ayant pas de cellule vide et ce soit sur la même feuille ou sur une nouvelle

En fouillant un peu j'ai retrouvé une solution de ccm_ 81 à un post relativement similaire mais avec un nbre de valeurs par colonne fixe et donc sans cellule vide sur la plage de données... en l'essayant je n'ai pas retrouvé le nbre de lignes attendues (135580 environ) mais n'arrive pas à voir où ça coince ... Merci d'avance pour votre aide :)

Voilà le code proposé ccm_81
Option Explicit

' constantes tableau origine
Const lidebFO As Long = 1
Const codebFO As Long = 1
' constantes tableau but
Const lidebFB As Long = 1
Const coFB As Long = 1

Public Sub ReduireEnUneColonne()
Dim liFO As Long, lifinFO As Long
Dim coFO As Long, cofinFO As Long
Dim liFB As Long
Dim s As String
Application.ScreenUpdating = False
With ActiveSheet
' dernière ligne/colonne feuill O
lifinFO = .Cells(Rows.Count, codebFO).End(xlUp).Row
cofinFO = .Cells(lidebFO, Columns.Count).End(xlToLeft).Column
' on y va
liFB = lidebFB
For coFO = codebFO To cofinFO
For liFO = lidebFO To lifinFO
.Cells(liFB, coFB) = .Cells(liFO, coFO)
liFB = liFB + 1
Next liFO
Next coFO
End With
Application.ScreenUpdating = True
End Sub