Recherche en VBA tableau à 2 entrées

Bonjour,

Je souhaiterais faire une rechercher dans un tableau à 2 entrée.

Je sélectionne les 2 entrées en H14 et H15 avec une liste déroulante et j'ai bien nommé mes plages "Pays" et "Date"

Et en case H20 le résultat du croisement ne s'affiche pas, avez-vous une idée de mon erreur ?

Cordialement

Private Sub copiage(ByVal Targett As Range)
If Not Intersect(Targett, [H14:H15]) Is Nothing And Targett.Count = 1 Then
[H20] = ""
x = [H14] 'liste déroulante de la date
y = [H15] 'liste déroulante du pays
Whit Sheets("BC")

s = Application.Match(y, .[Pays], 0)
v = Application.Match(x, .[Date], 0)
Z = Application.Index(.[b2:z501], s, v) '(.[b2:z501] morceaux de code récupérer que je ne comprends pas
End With                               ' index correspond a la matrice ou la recherche se fait je sais ça
If Not IsError(Z) Then [H20] = Z
End If

End Sub