Copier - Coller Transposer "en escalier"

Sub HTranspose()
Dim Tailles As Variant, datas As Variant
Dim lg As Long, nb As Long
Dim fruit As String, nombre As Integer
    Tailles = Sheets("Base").Range("B1:AD1").Value
    For lg = 2 To Sheets("Base").Range("AE" & Rows.Count).End(xlUp).Row
        datas = Sheets("Base").Range("B" & lg & ":AD" & lg).Value
        nombre = Sheets("Base").Range("A" & lg)
        fruit = Sheets("Base").Range("AE" & lg)
        With Sheets("Resultat").Range("A" & Rows.Count).End(xlUp)(2)
            nb = UBound(datas, 2)
            .Resize(nb) = fruit
            .Offset(, 1).Resize(nb) = nombre
            .Offset(, 2).Resize(nb) = Application.Transpose(Tailles)
            .Offset(, 3).Resize(nb) = Application.Transpose(datas)
        End With
    Next lg
End Sub