Trasnformer une liste d'adresse en colonne

Sub report()
Dim Lig As Long
Application.ScreenUpdating = False
Sheets("Feuil2").Cells.Clear
For n = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
 If Sheets("Feuil1").Range("A" & n).Hyperlinks.Count <> 0 Then
  Sheets("Feuil1").Range("A" & n & ":A" & n + 4).Copy
  Lig = Sheets("Feuil2").Range("A65536").End(xlUp).Row + 1
  Sheets("Feuil2").Range("A" & Lig).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    If Sheets("Feuil2").Range("D" & Lig) = "" Then
        Sheets("Feuil2").Range("D" & Lig).Delete shift:=xlShiftToLeft
    End If
  End If
Next n
Application.ScreenUpdating = True
Application.CutCopyMode = False
Sheets("Feuil2").Select
End Sub