copie colle feuille excel ligne et colonne

Sub Macro1()
Dim COP As Worksheet 'déclare la variable COP (onglet COPie)
Dim COL As Worksheet 'déclare la variable COL (onglet COLle)
Dim L1 As Variant 'déclare la variable L1 (Ligne 1)
Dim L2 As Variant 'déclare la variable L2 (Ligne 2)

Set COL = Worksheets("COLLE") 'définit l'onglet COL
Set COP = Worksheets("COPIE") 'définit l'onglet COL
L1 = Application.Transpose(COP.Range("A1:G1")) 'définit la ligne L1
L2 = Application.Transpose(COP.Range("A3:G3")) 'définit la ligne L2
COL.Range("A1").Resize(UBound(L1), 1).Value = L1 'renvoie dans A1 redimensionnée de l'onglet COL la ligne L1
COL.Range("C1").Resize(UBound(L2), 1).Value = L2 'renvoie dans C1 redimensionnée de l'onglet COL la ligne L2
End Sub