Ouvrir plusieurs liens pour récupérer des informations et les insérer

Bonjour a tous.

Pour commencer, je suis nouveau sur VBA et j’ai utilisé des bouts de code trouvés à droite à gauche sur internet.

Voici la présentation de ce que je veux faire :

1) La colonne A sert de référence c’est le lien de base

2) J’insère manuellement des valeurs dans la colonne B

3) En C je fusionne colonne A et B pour avoir un lien en fonction de chaque valeur (lien/x)

4) J’ouvre le lien et je récupère la valeur voulue sur le site

5) Pour chaque ligne je répète le processus

Les 4 premières étapes fonctionnent, mais maintenant je voudrais répéter le processus pour chaque lien et c’est là que ça coince.

Quelqu’un pourrait-il m’aider svp ?

Merci à vous.

(j'ai du remplacer les liens par "lienmanquant" car étant nouveau sur le forum "je ne peux pas poster de liens sur le forum pour le moment"

Sub Sript1()

Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim posts As Variant
Dim myText As String, mySpace As String
mySpace = ""

'PART 1 fusionner A et B en C
Cells(1, 1) = "Lien"
Range("A2:A20") = "lienmanquant/"
Cells(1, 2) = "Hashtag"
Cells(1, 3) = "lien combiné"
x = 2

Do While Cells(x, 1) <> ""
Cells(x, 3) = Cells(x, 1) & mySpace & Cells(x, 2)

x = x + 1
Loop
Columns("A:A").EntireColumn.AutoFit

'PART 2 Trouver l'info recherchée sur le lien
' Website to go to.
website = Range("C2")

' Create the object that will make the webpage request.
Set request = CreateObject("MSXML2.XMLHTTP")

' Where to go and how to go there - probably don't need to change this.
request.Open "GET", website, False

' Get fresh data.
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"

' Send the request for the webpage.
request.send

' Get the webpage response data into a variable.
response = StrConv(request.responseBody, vbUnicode)

' Put the webpage into an html object to make data references easier.
html.body.innerHTML = response

' Get the price from the specified element on the page.
posts = html.getElementsByClassName("content-subtitle").Item(0).innerText

Range("D2").Value = posts