Itération suivante si condition non remplie ds boucle importweb

Bonjour,

Débutant en VBA, je me suis inspiré de divers bouts de codes pour réaliser celui-ci.
Mais il y a un bug que je ne m'explique pas.

Le but est de remplir la colonne PRIX en cherchant sur un site web l'ISBN qui est la "clé".
Cela fonctionne tant qu'il y a un résultat.
La ligne 10, pour l'ISBN 9789018039844 qui n'est pas connu du site interrogé, ne renvoie rien (logique), mais la ligne 13, pour l'ISBN 9788498104875 qui est connu du site interrogé ne renvoie rien non plus.
J'ai l'impression que la macro "plante" à la ligne 10
Merci pour vos retours !!
Le fichier xls : https://catup.pw/2xCSFQ7
Le code :

Sub IMPORTNOSTROMO()
Dim ISBN As String
compteur = 2
For lignetest = 1 To 30
ISBN = Sheets("EXPORT").Cells(compteur, 5)
Sheets("TEMP").Cells.Clear
    Application.CutCopyMode = False
    With Sheets("TEMP").QueryTables.Add(Connection:="URL;http://nostromoweb.fr/fr/recherche/?keywords=" & ISBN & "&type=global" _
        , Destination:=Sheets("TEMP").Range("$A$1"))
        .Name = ISBN
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
For ligne = 1 To 1000
    If Sheets("TEMP").Cells(ligne, 1) Like "*€*" Then
            Sheets("EXPORT").Cells(compteur, 9) = Sheets("TEMP").Cells(ligne, 1).Value
            compteur = compteur + 1
        Else
        End If
    Next
Next
End Sub