Bonjour à tous !

J'utilise le code en dessous. Ça marche bien jusqu'à ce que ça tombe sur une url où la référence que je cherche n'existe pas. Il y a une erreur d’exécution "9".

J'ai mis le "On Error Resume Next" mais au lieu de laisser la case vide ça me copie la référence de la case précédente, et donc c'est pas très pratique. Où est mon erreur ? Je bloque et je suis sur que c'est pas grand chose.


Merci pour vos lumières !


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
On Error Resume Next
 
Dim C As Range
 
For Each C In ThisWorkbook.Worksheets("TEST").Range("B2:B10")
 
donnee = C.Value
URL = "http://www.url.com/" & donnee
code = GetCodeSource(URL)
reference = Split(Split(code, "<form id=")(1), """")(0)
 
C.Offset(0, 1) = reference
 
Next C