Résultats de la recherche

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...