Bonsoir,
Un premier exemple, si j'ai bien compris la question.
Cdlt
Option Explicit
Private Sub Copie()
Range("A5:A33").Copy
Cells(1, [A4]).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
End Sub