VLookup dans une macro excel

Sub supprimer_PsiR()
Dim T_r(), T_p(), D_r As Object, D_p As Object
Dim decal As Long, Cptr As Long, Ligne As Long
Dim start As Single

start = Timer
Application.ScreenUpdating = False

 créer_dico_concat "R", T_r, D_r
 T_keyR = D_r.keys
 créer_dico_concat "P", T_p, D_p
 T_keyP = D_p.keys
 Erase T_r, T_p
 
While D_r.Count > 0
     decal = 1
     For Cptr = LBound(T_keyR) To UBound(T_keyR)
          Ref = T_keyR(Cptr)
          If D_p.exists(Ref) Then
               Ligne = Application.Match(Ref, T_keyP, 0) + decal
               Sheets("P").Rows(Ligne).Delete
               decal = decal - 1
          End If
          D_r.Remove Ref
     Next
Wend
Application.ScreenUpdating = True
MsgBox "durée : " & Timer - start & " .sec."
End Sub

'--------------------------

Sub créer_dico_concat(onglet, tablo, dico)
Dim Derlig As Long, Lig As Long, Col As Byte, Ref As String
With Sheets(onglet)
     Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row
     tablo = .Range("A2:H" & Derlig).Value
     
     Set dico = CreateObject("scripting.dictionary")
     For Lig = 1 To UBound(tablo)
          Ref = ""
          For Col = 1 To 8
               Ref = Ref & tablo(Lig, Col)
          Next
               If Not dico.exists(Ref) Then dico.Add Ref, ""
     Next

End With

End Sub