XL 2016 Utiliser une variable en lieu et place d'une adresse internet

Bonjour,
J'ai un fichier de 2 feuilles Feuil1 et Perf, de 700 lignes (env) et dans une colonne des 2 feuilles
- Feuil1 - J'ai le nom des produits que je choisis en cliquant dessus , ce qui m'ouvre l'autre feuille Perf
- Perf - j' ai la même liste de produits par ordre alphabétique avec un colonne (D) dont chaque cellule contient le lien d'une page web qui contient une image differente pour chaque produit et que je veux récupérer

Voici mes 2 modules
----------------------
Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range)
With rngTarget.Parent
.Pictures.Insert strShpUrl
.Shapes(.Shapes.Count).Left = rngTarget.Left
.Shapes(.Shapes.Count).Top = rngTarget.Top
End With
End Sub
-------------------------------
Sub Charge_graph()
Dim qurl As String
Dim Chaine As String
Dim i As Integer
Dim j As Integer
Dim k As Integer

Sheets("Feuil1").Activate ' Sur Feuil1
NomETF = ActiveCell.Value ' Je récupère le nom du produit
'on a trouvé le nom de l'ETF
'on va le chercher dans PERF

Sheets("PERF").Select 'Je positionne sur cette feuille qui a les mêmes noms de produits

i = 1
j = Range("A2").End(xlDown).Row 'Colonne des noms des ETFs / on a le nb de lignes
qurl = ""

For k = 2 To j
i = i + 1
'On Error Resume Next
Chaine = Cells(i, 1) 'je me positionne en colonne 1 et je vais chercher le nom du produit
If Chaine = NomETF Then
qurl = Sheets("PERF").Cells(i, 4).Value 'le lien URL est dans la colonne D et la variable QURL n'est plus vide
End If
If qurl <> "" Then Exit For 'pour éviter de lire 700 lignes car le nom du produit est unique
Next

Call GetShapeFromWeb(qurl, Sheets("Perf").[g11])

' L'image ne se charge pas -> la variable qurl n'est pas acceptée puisque, en exemple ci-dessous
' Call GetShapeFromWeb("http://www.stockvault.net/data/2011/04/05/121121/small.jpg", Sheets("Perf").[g11] ' fonctionne bien
End Sub

Est-ce que j'ai mal référencé cette variable QURL?
Merci pour votre aide