Ajouter un Underscore

Cells.Replace What:=" ", Replacement:="_"

[D4].Replace What:=" ", Replacement:="_"

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