salut,
sub essai()
dim dbs as database, rst as DAO.recordset
set dbs = currentdb
set rst=dbs.openrecordset("<nom de la table>")
do while not rst.eof
instructions
loop
end sub
Bonne chance.MERCI