Recopier cellule d4une feuille sur une autre

Bonjour,

Je souhaite recopier automatiquement des cellules qui se trouve sur un ligne vers une autre feuille mais sur une colonne

Comment faire ?

Feuille 1 : cellules B1.C1.D1

Feuille 2 : valeurs de B1 en F1,valeurs de C1 en F2......

Merci pour vos réponses

AS VAZE

Bonjour,

 Range("B1:F1").Select
    Selection.Copy
    Sheets("Feuil2").Select
    Range("F1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True