Problème avec RECHERCHEV

Bonjour,

J'aimerais savoir comment associer un VBA pour sélection multiple et la fonction RECHERCHEV.
Je veux générer autant de nature de marchandise qu'autant d'espèce manifestée. Quand je sélectionne un seul code tout fonctionne mais au delà c'est #N/A.
La formule utilisée dans la colonne P est: =SI(O10="";"";RECHERCHEV(O10;ref!$V$2:$W$65003;2;0))
La sélection multiple est dans la colonne O est en VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 2019/11/13
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, xRng) Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or _
InStr(1, xValue1, ", " & xValue2) Or _
InStr(1, xValue1, xValue2 & ",") Then
Target.Value = xValue1
Else
Target.Value = xValue1 & ", " & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
End Sub



Merci de votre coup de main