Restrictions placées dans fichier plutôt qu'en dur dans le code

Sub Programme_zone_variable()

Dim Lastligne As Long

' Définition de la zone de restriction
Sheets("Listes").Activate
Range("D2").Select
Lastligne = Range("D" & Rows.Count).End(xlUp).Row
Range("D2:D" & Lastligne).Name = "BLACKLISTE"


' Définition de la zone où se trouvent les données pour le vlookup
Sheets("Listes").Activate
Range("A2").Select
Dim ZeilenNr As Long
ZeilenNr = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:B" & ZeilenNr).Name = "SELECTION"


Dim lastline As Long, i As Long
Dim Prix As Variant
Dim Cellule As Range

lastline = Sheets("BASE").Range("A" & Rows.Count).End(xlUp).Row

' Le prix est écrit dans la 10e colonne
 ' ça bloque ici (Blackliste = l'équivalent "souhaité" de If .Cells(i, 1) = "Hollande" etc.)
    With Sheets("BASE")
            For i = 2 To lastline
                For Each Cellule In Range("BLACKLISTE")
                    If .Cells(i, 1) = Cellule Then
                        Prix = Application.WorksheetFunction.VLookup(.Cells(i, 1), Range("SELECTION"), 2, False)
                        .Cells(i, 10) = Prix
                    End If
                Next Cellule
            Next i
    End With
End Sub