VBA - Cellule et plage de variables

Bonjour à tous,

J'ai rédigé un bout de code d'après ce que j'ai pu voir sur différents forums pour automatiser un collage spécial "transposé" de plusieurs colonnes vers une seule.

Ma problématique :
Mon code actuel implique de déclarer ma plage de colonne de façon fixe (A:U) avec ensuite une recherche de la dernière ligne.
Mes colonnes étant variables, je souhaitais mettre en place une recherche de colonne également.

Vous trouverez ci-dessous le code originel, avec en gras la ligne que j'essaie de modifier et en texte la modification sur laquelle je travaille :

Sub transpose()

    Dim sh As Worksheet, aa, bb, i&, a&, n&
    Dim LastColumn As Long, LastLigne As Long
    
    Application.ScreenUpdating = 0
    
    LastColumn = Cells(3, Cells.Columns.Count).End(xlToLeft).Column
    LastLigne = Range("B" & Rows.Count).End(xlUp).Row
    
    For Each sh In Worksheets
      <bold>  aa = sh.Range("A2:U" & sh.Range("A" & Rows.Count).End(xlUp).Row)</bold>
        '(Cells(2, 1), Cells(LastColumn, LastLigne).Row)

        ReDim bb(1 To UBound(aa) * (UBound(aa, 2) - 2), 1 To 3): n = 1
        
        For i = 2 To UBound(aa)
           For a = 3 To UBound(aa, 2)
             bb(n, 1) = aa(i, 2): bb(n, 2) = aa(1, a): bb(n, 2) = aa(i, a): n = n + 1
           Next a
        Next i
    Next sh
    
    Sheets.Add after:=Sheets(Sheets.Count): ActiveSheet.Name = "TRANSPOSE"
    ActiveSheet.Range("A1").Resize(UBound(bb), UBound(bb, 2)) = bb

End Sub

Merci d'avance pour vos retours !