Sub GetHypermarchesLeclerc()

Dim objIE As InternetExplorer
Dim htmlDoc As HTMLDocument

Set objIE = New InternetExplorer
objIE.Visible = True

objIE.Navigate "https://www.leclerc.fr/magasins"

Do While objIE.Busy = True Or objIE.ReadyState <> 4
    DoEvents
Loop

Set htmlDoc = objIE.Document

Dim storeElements As IHTMLElementCollection
Set storeElements = htmlDoc.getElementsByClassName("c-store-card")

Dim storeElement As HTMLHtmlElement

Dim stores As New Collection

For Each storeElement In storeElements

    Dim storeName As String
    storeName = storeElement.getElementsByClassName("c-store-card__title")(0).innerText

    Dim storeAddress As String
    storeAddress = storeElement.getElementsByClassName("c-store-card__location")(0).innerText

    Dim store As Variant
    store = Array(storeName, storeAddress)

    stores.Add store

Next storeElement

objIE.Quit

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets.Add

Dim i As Long
For i = 1 To stores.Count

    ws.Cells(i, 1).Value = stores(i)(0)
    ws.Cells(i, 2).Value = stores(i)(1)

Next i

End Sub