Sub test()
tablo1 = Sheets("bon").Range("A2:B5050")
tablo2 = Sheets("donnee").Range("A2:B3250")
For n = LBound(tablo1, 1) To UBound(tablo1, 1)
For m = LBound(tablo2, 1) To UBound(tablo2, 1)
If tablo1(n, 1) = tablo2(m, 1) Then
tablo2(m, 2) = tablo1(n, 2)
End If
Next
Next
Sheets("donnee").Range("A2").Resize(UBound(tablo2, 1), UBound(tablo2, 2)) = tablo2
End Sub