Convert horizontal date into Vertical date

Hello,

By hand :
1) select range A1:AX3 and copy
2) select A1 in new worksheet and menu Edition/Pastespecial checkbox Transpose

By macro :
Copy this code in a standard module

Sub TransposeSelection()
Dim S As Worksheet
On Error GoTo Erreur
Selection.Copy
Set S = Sheets.Add
S.[a1].PasteSpecial Paste:=xlPasteAll, Transpose:=True
S.Cells.Columns.EntireColumn.AutoFit
Application.CutCopyMode = False
Erreur:
If Err <> 0 Then MsgBox "Error " & Err.Number & vbCrLf & Err.Description
End Sub

Best regards.

PMO
Patrick Morange