Transposé une colonne

Sub Concat()
Dim Cel As Range
          Application.ScreenUpdating = False
      For Each Cel In Range("a6:a" & [a65000].End(xlUp).Row)
  
           Cells(7, "d") = Trim(Cells(7, "d")) & "','Communes/" & Cel & ".html"
     Next Cel
         Cells(7, "d").Value = Mid(Cells(7, "d").Value, 2)
         Cells(7, "d").Value = "var txt = new Array ('" & Cells(7, "d").Value & "')"
End Sub