Transposer une colonne d'une feuille à une autre

bonjour a tous voila je voudrais savoir comment transposer une colonne de la feuille 2 vers la feuille 1

voici le code que j'ai trouvé avec l'enregistreur de macro et quelque modification

Sub TransposerLatitude()

   Sheets(2).Select
    Range("B1").Select
    feuil.Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Feuille 1").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True

End Sub

voila j'ai mit le fichier qui contient cette macro en fichier joint

merci d'avance

Bonjour,

Je ne suis pas sûr d'avoir compris ce qui te pose problème puisque l'enregistrement a dû te donner un résultat correct.

Ta procédure peut se traduire par :

Sub TransposerLatitude()
    With Sheets("Feuil2")
    .Range(.Range("B1"), .Range("B1").End(xlDown)).Copy
    End With
    Sheets("Feuil1").Range("B1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

A+

merci beaucoup frangy ce code fonctionne parfaitement encore merci et bonne journée

^^