Sub transfert_données_colonne_ligne()
Dim sh1 As Worksheet, sh2 As Worksheet, LastRw As Long, i As Long
Set sh1 = Sheets("Feuil1") ' adapter le nom de l'onglet
Set sh2 = Sheets("Feuil2") ' adapter le nom de l'onglet
LastRw = sh1.Cells(Rows.Count, 1).End(xlUp).Row ' adapter pour la colonne concernée
For i = 2 To LastRw
sh2.Cells(2, i).Value = sh1.Cells(i, 1).Value ' adapter pour la colonne et ligne concernée
Next
End Sub