Transposer un résultat

Bonjour, grâce à ce forum j'ai obtenu ce programme :

Dim Col As Byte

Col = Day(Range("journee")) + 3
Sheets("cumul.pe").Cells(Col, 2).Resize(15, 1) = Range("caisse").Value

Je désire maintenant obtenir ce résultat mais transposé, comment dois-je le noter?
Merci d'avance