Sub cherche()
Dim j, i, val, x As Variant
With Sheets("stock à date")
x = .Range("A1750").End(xlUp).Row
For j = 2 To x
val = Cells(j, 1).Value
With Sheets("Stock 240")
i = Application.Match(val, .Range("A:A"), 0)
If Not IsError(i) Then
Sheets("Stock à date").Cells(j, 8).Value = 240
End If
End With
Next j
End With
End Sub