rechercherV avec 2 valeurs correspondante

[COLOR="DarkSlateGray"][B]Private Sub toto()
Dim i&, j&, nVal&
Dim oRef, oDat1, oDat2, oVal
   On Error Resume Next
   Range("RES").ClearContents [COLOR="SeaGreen"]'Vidange de la plage de sortie. La ligne _
      précédente est nécessaire pour les cas où la plage est déjà vide.[/COLOR]
   On Error GoTo E
   oRef = Range("REF").Resize(Range("REF").Rows.Count, 2).Value [COLOR="SeaGreen"]'Saisie _
      des références à chercher dans le tableau oRef. Le paramètre 2 _
      est nécessaire pour forcer oRef à être un tableau dans le cas où _
      il n'y a qu'une seule valeur à saisir. La ligne précédente  est _
      nécessaire pour le cas où la plage est vide.[/COLOR]
   On Error GoTo 0
   ReDim Preserve oRef(1 To UBound(oRef, 1), 1 To 1) [COLOR="SeaGreen"]'Rétablissement _
      de la dimension du tableau en tableau unicolonne.[/COLOR]
   oDat1 = Range("TABLE_1").Value [COLOR="SeaGreen"]'Saisie des valeurs à comparer à _
      celles du tableau oRef.[/COLOR]
   oDat2 = Range("TABLE_2").Value [COLOR="SeaGreen"]'Saisie des valeurs associées à _
      celles du tableau oDat1.[/COLOR]
   ReDim oVal(1 To 2, 1 To 1) [COLOR="SeaGreen"]'Formatage du tableau de sortie destiné _
      à recueillir les valeurs qu'on va sélectionner dans la suite.[/COLOR]
   For i = 1 To UBound(oRef, 1)
      For j = 1 To UBound(oDat1, 1)
         If oRef(i, 1) = oDat1(j, 1) Then [COLOR="SeaGreen"]'Si une valeur de oRef _
            correspond à une valeur de oDat1 alors...[/COLOR]
            nVal = nVal + 1 [COLOR="SeaGreen"]'...incrémentation du compteur de valeurs _
               selectionnées.[/COLOR]
            ReDim Preserve oVal(1 To 2, 1 To nVal) [COLOR="SeaGreen"]'Redimensionnement _
               du tableau de sortie pour accueillir un nouveau couple _
               de valeurs.[/COLOR]
            oVal(1, nVal) = oDat1(j, 1)
            oVal(2, nVal) = oDat2(j, 1)
         End If
      Next j
   Next i
   [COLOR="SeaGreen"]'Dépot des valeurs du tableau de sortie transposé dans une plage ayant _
   le coin supérieur gauche de la plage RES comme origine.[/COLOR]
   Range("RES").Resize(WorksheetFunction.Max(1, nVal), 2).Value = WorksheetFunction.Transpose(oVal)
E:
End Sub[/B][/COLOR]

[COLOR="DarkSlateGray"][B]Private Sub toto()
Dim i&, j&, nVal&
Dim oRef, [COLOR="SeaGreen"]oDat1[/COLOR], [COLOR="SeaGreen"]oDat2[/COLOR], [COLOR="Red"]oVal1[/COLOR], [COLOR="Red"]oVal2[/COLOR]
   On Error Resume Next
   [COLOR="Red"]Range("RES_2").ClearContents
   Range("RES_1").ClearContents[/COLOR]
   On Error GoTo E
   oRef = Range("REF").Resize(Range("REF").Rows.Count, 2).Value
   On Error GoTo 0
   ReDim Preserve oRef(1 To UBound(oRef, 1), 1 To 1)
   [COLOR="SeaGreen"]oDat1 = Range("TABLE_1").Value
   oDat2 = Range("TABLE_2").Value[/COLOR]
   [COLOR="Red"]ReDim oVal1(1 To 1, 1 To 1)
   ReDim oVal2(1 To 1, 1 To 1)[/COLOR]
   For i = 1 To UBound(oRef, 1)
      For j = 1 To UBound(oDat1, 1)
         If oRef(i, 1) = oDat1(j, 1) Then
            nVal = nVal + 1
            [COLOR="Red"]ReDim Preserve oVal1(1 To 1, 1 To nVal)
            ReDim Preserve oVal2(1 To 1, 1 To nVal)
            oVal1(1, nVal) = [COLOR="SeaGreen"]oDat1(j, 1)[/COLOR]
            oVal2(1, nVal) = [COLOR="SeaGreen"]oDat2(j, 1)[/COLOR][/COLOR]
         End If
      Next j
   Next i
   [COLOR="Red"]Range("RES_2").Resize(WorksheetFunction.Max(1, nVal), 1).Value = WorksheetFunction.Transpose(oVal2)
   Range("RES_1").Resize(WorksheetFunction.Max(1, nVal), 1).Value = WorksheetFunction.Transpose(oVal1)[/COLOR]
E:
End Sub[/B][/COLOR]