Rechercher valeur dans une feuille excel non triée dans un autre

 Option Explicit 
  
 Sub chercher_T_si() 
 Dim Derlig As Integer, Lig As integet 
 Dim Dico As Object 
 Dim T_colA(), T_colE() 
  
 Application.ScreenUpdating = False 
  
 With Sheets(1) 
     Derlig = .Columns("J").Find("*", , , , , xlPrevious).Row 
     Set Dico = CreateObject("scripting.dictionary") 
     For Lig = 1 To Derlig 
          Dico.Add .Cells(Lig, "J").Value, .Cells(Lig, "T") 
     Next 
 End With 
  
 Workbooks.Open Filename:="D:\documents\classeurA.xls"  'A ADAPTER 
 With Sheets(1) 
     .Columns("E").Clear 
      Derlig = .Columns("A").Find("*", , , , , xlPrevious).Row 
      T_colA = Application.Transpose(.Range("A1:A" & Derlig).Value) 
      T_colE = Application.Transpose(.Range("E1:E" & Derlig).Value) 
      For Lig = 1 To Derlig 
          If Dico.exists(T_colA(Lig)) Then T_colE(Lig) = Dico.Item(T_colA(Lig)) 
     Next 
      
     With .Range("E1:E" & Derlig) 
          .Value = Application.Transpose(T_colE) 
          .Borders.Weight = xlThin 
     End With 
 End With 
 End Sub