Archiver valeur excel VBA

[mysti54]

Bonsoir à tous

J'ai parcouru le forum et je n'arrive pas à adapter ma recherche par code VBA sur ce que je trouve.
J'aimerais archiver les valeurs de la feuille 1 qui sont en vertical à la feuille 2 qui doivent être archiver en horizontal à la suite.
En feuille 1 les valeurs en M13 M14 et M15 changent à chaque fois.
Fichier joint.

Merci à tous

 

[i20100]

Bonjour,

à tester,

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

 

[mysti54]

bonjour iso100

Merci pour la réponse mais comment l'adapter aux cellules sur le premier fichier joint.
Colonne n°13 (M) ligne 15.