transposer un tableau

Public Sub vev2()
Dim i As Integer, j As Integer, derligne As Integer
derligne = Range('a65536').End(xlUp).Row
For j = 1 To 4
    For i = 2 To Range('a65536').End(xlUp).Row
        Range('f' & derligne) = Cells(i, j)
        If IsDate(Cells(i, j)) Then Range('f' & derligne) = CDate(Cells(i, j))
        derligne = derligne + 1
    Next i
Next j
End Sub

Public Sub vev2()
Dim i As Integer, j As Integer, derligne As Integer
derligne = Range('a65536').End(xlUp).Row
For i = 2 To Range('a65536').End(xlUp).Row
    For j = 1 To 4
        Range('f' & derligne) = Cells(i, j)
        If IsDate(Cells(i, j)) Then Range('f' & derligne) = CDate(Cells(i, j))
        derligne = derligne + 1
    Next j
Next i
End Sub

Public Sub vev2()
Dim i As Integer, j As Integer, n As Integer
Dim nomfeuille As String
'on stock le nom de la feuille active
nomfeuille = ActiveSheet.Name
'on crée la feuille résultat
Sheets.Add.Name = 'Résultats'
'on retourne à la feuille des données
Sheets(nomfeuille).Select
'on fait le traitement
n = 1
For i = 2 To Range('a65536').End(xlUp).Row
    For j = 1 To 4
    With Sheets('Résultats')
        .Range('A' & n) = Cells(i, j)
        If IsDate(Cells(i, j)) Then .Range('a' & n) = CDate(Cells(i, j))
        n = n + 1
    End With
    Next j
Next i
'on déplace la feuille résultats vers un nouveau classeur
Sheets('Résultats').Move
'on ouvre la boite d'enregistrement
Application.GetSaveAsFilename
End Sub