Recherche de valeurs dans un tableau

Public Sub RALF()
Dim li As Long, lifin As Long, comm As String, lili As Long
Dim obj As Object, plage As Range
Dim TR(), nbliT As Long, t As Single
t = Timer
With ActiveSheet
  lifin = .Range(coCO & Rows.Count).End(xlUp).Row
  nbliT = lifin - lideb + 1
  ReDim TR(1 To nbliT)
  For li = lideb To lifin
    comm = .Range(coCO & li).Value
    Set plage = .Range(coCO & lideb - 1 & ":" & coCO & li - 1)
    Set obj = plage.Find(comm, , , xlWhole, , xlPrevious)
    If obj Is Nothing Then
      TR(li - 1) = .Range(coQP & li).Value - .Range(coQF & li).Value
    Else
      lili = obj.Row
      TR(li - 1) = TR(lili - 1) - .Range(coQF & li).Value
    End If
  Next li
  .Range(coRS & lideb).Resize(nbliT, 1) = Application.Transpose(TR)
End With
MsgBox "temps mis " & Timer - t & "s"
End Sub