Macro excel: transposition colonne en ligne

Sub Compile() 
    Dim lig As Long, n As Long, memlig As Long 
    n = 1 
    Application.ScreenUpdating = False 
    For lig = 2 To [A65536].End(xlUp).Row 
        If Cells(lig, 1) = Cells(lig - 1, 1) Then 
            Cells(lig, 2).Resize(1, 2).Copy Destination:=Cells(memlig, 2).Offset(0, (n * 2)) 
            n = n + 1 
        Else 
            n = 1 
            memlig = lig 
        End If 
    Next lig 
    For lig = [A65536].End(xlUp).Row To 2 Step -1 
        If Cells(lig, 1) = Cells(lig - 1, 1) Then 
            Cells(lig, 1).EntireRow.Delete 
        End If 
    Next lig 
    Application.ScreenUpdating = True 
End Sub