Sub recherche()
'Recherche ID finales
With Sheets("Symbol")
Déb = 2
Fin = .Range("a" & .Rows.Count).End(xlUp).Row
End With
With Sheets("Syt")
I = 3
Do While I < Fin
For J = Déb To Fin
If .Range("a" & I).Value = Sheets("Symbol").Range("a" & J).Value Then .Range("b" & I).Value = Sheets("symbol").Range("b" & J).Value
Next J
I = I + 1
Loop
End With
End Sub