Bonjour à tous !

besoin d'un coup de main je ne comprend pas pourquoi tout se decale j'aimerai les Dots en face des bonnes villes
merci a vous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Public Sub GetContents()
 
    Dim XMLReq As New MSXML2.XMLHTTP60
    Dim HTMLDoc As New MSHTML.HTMLDocument
 
    XMLReq.Open "Get", "https://brocabrac.fr/14/", False
    XMLReq.send
 
    HTMLDoc.body.innerHTML = XMLReq.responseText
 
    Dim SubSectList As Object, SubSect As Object
 
    Set SubSectList = HTMLDoc.getElementsByClassName("ev-section")
 
    Dim cit As Object
    Dim dots As Object
    Dim day As Object
    Dim addr As Object
 
 
    r = 1
 
 
    For Each SubSect In SubSectList
 
        For Each cit In SubSect.getElementsByClassName("city")
 
            ActiveSheet.Cells(r + 1, 1) = cit.innerText & " : " & cit.NextSibling.NextSibling.innerText
 
 
            r = r + 1
 
        Next
 
          For Each day In SubSect.getElementsByClassName("day")
 
            ActiveSheet.Cells(r, 2) = day.innerText & " : " & day.NextSibling.NextSibling.innerText
 
 
            r = r + 1
 
 
        Next
 
         For Each dots In SubSect.getElementsByClassName("dots")
 
            ActiveSheet.Cells(r, 4) = dots.innerText & " : " & dots.NextSibling.NextSibling.innerText
 
            r = r + 1
 
 
        Next
 
 
 
 
    Next
 
 
 
End Sub