Transfert sur une autre feuille ( EXCEL)

Sub Ex_Copie_Donnees()

    Dim Ws1 As Worksheet, Ws2 As Worksheet
    Dim BoucleL As Long, LimiteL As Long
    Dim BoucleC As Long, LimiteC As Long
    
    ' Désactive affichage pour meilleur performance
    Application.ScreenUpdating = False
    
    ' Prendre une main sur Feuil1 et Feuil2
    Set Ws1 = Sheets("Feuil1")
    Set Ws2 = Sheets("Feuil2")
    
    ' Définir les limites de la copiue
    LimiteL = Ws1.Range("A65536").End(xlUp).Row
    LimiteC = Ws1.Range("IV1").End(xlToLeft).Column
    
    ' Boucle sur les colonnes
    For BoucleC = 1 To LimiteC
        ' Boucle sur les lignes
        For BoucleL = 1 To LimiteL
            ' Copie d'une feuille à l'autre
            Ws2.Cells(BoucleC, BoucleL).Value = _
                    Ws1.Cells(BoucleL, BoucleC).Value
        Next BoucleL
    Next BoucleC
    
    ' Résactive affichage
    Application.ScreenUpdating = True
    
End Sub
'

T_copi = Sheets(1).Range("A1:D3").Value

Sheets(2).Range("F1").Resize(4, 3) = Application.Transpose(T_copi)

Option Explicit 

Sub transposer() 
Dim lig_dep As Long, col_dep As Long, lig_fin As Long, col_fin As Long 
Dim largeur As Long, hauteur As Long 
Dim T_copi 
Dim lig_cible As Long, col_cible As Long 
Dim source As Range, cible As Range 

'zone source 
'départ 
lig_dep = 1 
col_dep = 1 
'fin 
lig_fin = 3 
col_fin = 4 

'cible 
lig_cible = 1 
col_cible = 6 


With Sheets(1) 
'collecte les valeurs 
Set source = .Range(.Cells(lig_dep, col_dep), .Cells(lig_fin, col_fin)) 
largeur = source.Columns.Count 
hauteur = source.Rows.Count 

T_copi = source.Value 
End With 

'restitue la transposée 
Application.ScreenUpdating = False 
Set cible = Sheets(2).Cells(lig_cible, col_cible).Resize(largeur, hauteur) 
cible = Application.Transpose(T_copi) 

End Sub