Sub transpose()
Dim dl&
Application.CutCopyMode = False
dl = Feuil1.Cells(Rows.Count, 1).End(3).Row
Feuil1.Activate
Feuil1.Range(Cells(3, 2), Cells(dl, 2)).Copy
Feuil2.Activate
Feuil2.Cells(1, 1).PasteSpecial Paste:=xlValue, transpose:=True
Application.CutCopyMode = True
End Sub
un exemple possible de macro pour lire les données de la colonne B.
Pour la colonne C, il suffit de remplacer le 2 par le 3 dans l'expression :
Feuil1.Range(Cells(3, 2), Cells(dl, 2)).Copy
Salutations et bon courage pour l'adaptation.