Bonjour,
Voici un essai :
sub pointage()
dim lot, dl&, i&
lot = userform1.textbox1.value
with sheets("feuil1")
dl = .cells(.rows.count, 2).end(xlup).row
for i = 1 to dl
if .cells(i, 2).value = lot then
.cells(i, 8).value = "X"
end if
next i
end with
end sub
A déclencher par exemple au clic sur un bouton de l'userform :
private sub commandbutton1_click()
call pointage
end sub
Cdlt,