Exclusion nombres identiques

Option Explicit   
Option Base 1   

Const lideb = 1   
Const co1 = "A"   
Const co2 = "B"   
Const cores = "E"   

Public Sub extraction()   
Dim lifinA As Long, lifinB As Long, li As Long, lili As Long, liD As Long   
Dim n As Long   
Dim T   
Dim trouve As Boolean   
  lifinA = Range(co1 & 65536).End(xlUp).Row   
  lifinB = Range(co2 & 65536).End(xlUp).Row   
  liD = 0   
  n = lifinA + lifinB - 2 * lideb + 2   
  ReDim T(1 To n)   
  For li = lideb To lifinA   
    T(li) = Range(co1 & lideb + li - 1)   
  Next li   
  For li = lideb To lifinB   
    T(li + lideb + lifinA - 1) = Range(co2 & lideb + li - 1)   
  Next li   
  For li = 1 To n   
    trouve = False   
    lili = 0   
    Do   
      lili = lili + 1   
      If li <> lili And T(lili) = T(li) Then: trouve = True   
    Loop Until lili = n Or trouve   
    If Not trouve Then   
      liD = liD + 1   
      Range(cores & liD).Value = T(li)   
    End If   
  Next li   
End Sub