Sub Copy()
Dim Cel As Range
Application.ScreenUpdating = False
'Deuxième partie
For Each Cel In Range("a6:a" & [a65000].End(xlUp).Row)
Cells(3, "d") = Trim(Cells(3, "d")) & "','" & Cel
Next Cel
Cells(3, "d").Value = Mid(Cells(3, "d").Value, 2)
Cells(3, "d").Value = "var txt = new Array ('" & Cells(3, "d").Value & "');"
' Deuxième partie avec Underscore
'Deuxième partie
For Each Cel In Range("a6:a" & [a65000].End(xlUp).Row)
Cells(4, "d") = Trim(Cells(4, "d")) & "','" & "Communes/" & Cel & ".html"
Next Cel
Cells(4, "d").Value = Mid(Cells(4, "d").Value, 2)
Cells(4, "d").Value = "var url = new Array ('" & Cells(4, "d").Value & "');"
[D4].Replace What:=" ", Replacement:="_"
End Sub