Bonjour,
cette macro te fait la transposition sans le souci (pas mince vu tes dimensions) de sélectionner les zones "depart" et "but"
seule condition il doit y a avoir un espace vide autour du tableau de départ (ligne et colonne)
les constantes (const) doivent être paramétrées à tes données
à adapter à XL2007
Const cel_dep As String = "A1"
Const cel_but As String = "B2"
Const sh_dep As String = "feuil1"
Const sh_but As String = "feuil2"
'
Sub big_transpose()
Dim lig As Long, cptr2 As Long
Dim col As Long, cptr1 As Long
Application.ScreenUpdating = False
tablo = Sheets(sh_dep).Range(cel_dep).CurrentRegion
Sheets(sh_but).Activate
lig = Range(cel_but).Row - 1
col = Range(cel_but).Column - 1
For cptr1 = 1 To UBound(tablo, 1)
For cptr2 = 1 To UBound(tablo, 2)
Cells(lig + cptr2, col + cptr1) = tablo(cptr1, cptr2)
Next cptr2
Next cptr1
End Sub
Cordialement, Michel