Bonjour, 
j'ai tappé ce code :
sql = "SELECT COD_ETAB, Centre_Examen FROM CandNeufNC order by COD_ETAB"
rs.Open sql, CnNeuvieme, adOpenStatic, adLockOptimistic
nb = rs.RecordCount
Me.ProgressBar1.Min = 0
ProgressBar1.Max = nb
For i = 1 To nb
ecole = rs("COD_ETAB")
ProgressBar1.Value = i
sql2 = "SELECT CentreExamen FROM CentreEcole where ecole='" & ecole & "'"
rs2.Open sql2, CnNeuvieme, adOpenStatic, adLockOptimistic
rs2.Close
Next i
rs.Close
Mais au moment de l'execution ça prend beaucoup du temp