[XL-2016] Modification d'un code

Bonjour

Quand j’actionne mon code mon problème et qu'il me met les underscore à var url = new Array (
puisqu'il se trouve en "D4" y a t-il une solution pour éviter cela?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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

Merci

Max