Recherche valeur dans une autre feuille

Public Sub Actualiser()
Dim co As Long, li As Long, cofin As Long
Dim nom As String, obj As Object, adrobj As String
Dim coul As Long, poli As String, plage As Range, fond As Long
cofin = Sheets(FT).Cells(linom, Columns.Count).End(xlToLeft).Column
For co = codeb To cofin
  nom = Sheets(FT).Cells(linom, co).Value
  Set obj = Sheets(FB).Columns(conom).Find(nom)
  adrobj = obj.Address
  coul = Sheets(FB).Range(adrobj).Font.ColorIndex
  poli = Sheets(FB).Range(adrobj).Font.Name
  fond = Sheets(FB).Range(adrobj).Interior.ColorIndex
  With Sheets(FT)
    Set plage = .Range(.Cells(linom, co), .Cells(lifin, co))
    plage.Font.Name = poli
    plage.Font.ColorIndex = coul
    plage.Interior.ColorIndex = fond
  End With
Next co
End Sub