Adresse en colonne versus en lign - Besoin d'aide merci beaucoup

Sub transposer()
Dim Ligne As Long
' derniere ligne remplie en colonne 1 de la 1ere feuille
Ligne = Sheets(1).Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
x = 1 'ligne de départ de recopie sur feuille 2 (à modifier si nécessaire)
y = 0
' boucle sur les lignes de la 1ere feuille
For n = 1 To Ligne
' si vide on incrémente la variable ligne de 1 et on remet la variable colonne à 0
If Sheets(1).Cells(n, 1) = "" Then
x = x + 1: y = 0
' sinon on incrémente la variable colonne de 1 et on copie en 2eme feuille
Else: y = y + 1: Sheets(2).Cells(x, y) = Sheets(1).Cells(n, 1)
End If
Next
End Sub

Sub TestComplement()
Ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
   For L = Ligne To 2 Step -1
   T = T + 1
      If Cells(L, 1) = "" Then
         If T = 7 Then
            Rows(L + 2).Delete
         End If
         T = 0
      End If
   Next
Transposer
End Sub

Sub Transposer()
Dim Ligne As Long
' derniere ligne remplie en colonne 1 de la 1ere feuille
Ligne = Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
X = 1 'ligne de départ de recopie sur feuille 2 (à modifier si nécessaire)
Y = 0
' boucle sur les lignes de la 1ere feuille
   For N = 2 To Ligne
   ' si vide on incrémente la variable ligne de 1 et on remet la variable colonne à 0
      If Cells(N, 1) = "" Then
            X = X + 1: Y = 0
      ' sinon on incrémente la variable colonne de 1 et on copie en 2eme feuille
         Else
            Y = Y + 1
            Sheets(Feuil2.Name).Cells(X, Y) = Cells(N, 1)
      End If
   Next
End Sub

Option Explicit
Option Base 1
'-------------------------------------------------------
Sub transposer_col_lig()
Dim Derlig As Long, T_in, Nbre As Integer, T_out
Dim Col As Byte, cptr As Long, Idx As Integer
Dim Start As Single

Start = Timer
'----- ---initialisations
    Application.ScreenUpdating = False 'fige l'écran pour rapidité et confort
    Range("D30:H" & 6500).Clear ' nettoyage de la restitution
    'mémorisation des données en RAM: évite les AR Ram-Ecran chronophages
    Derlig = Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
    T_in = Application.Transpose(Range("A2:A" & Derlig + 1))
    'nombre de blocs adresse à traiter et preparation variable-tableau de sortie
    Nbre = Application.CountIf(Range("A2:A" & Derlig), "") + 1
    ReDim T_out(Nbre, 6)
    
'-------transposition en Ram vertical-horizontal
    For cptr = 1 To UBound(T_in)
        Idx = Idx + 1
        Col = 1
            While T_in(cptr) <> ""
                T_out(Idx, Col) = T_in(cptr)
                cptr = cptr + 1
                Col = Col + 1
            Wend
    Next
    
'----restitution données transposées horizontalement
    Range("D30").Resize(Nbre, 6) = T_out

   Application.ScreenUpdating = False
   MsgBox "Transposition de " & Nbre & " adresses en: " & Timer - Start & " sec."
 End Sub