Sub cherche()
Dim n As Integer
Dim c As Range
For n = 2 To Sheets("Simple Invoice").Range("B65536").End(xlUp).Row
Set c = Sheets("Stock").Columns(1).Find(Sheets("Simple Invoice").Range("B" & n).Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets("stock").Range("B" & c.Row & ":EB" & c.Row).Copy Destination:=Sheets("Simple Invoice").Range("B" & n)
End If
Next n
End Sub