Do Until RsPerso.EOF Item = RsPerso!Nom & " " & RsPerso!Prenom RsPerso.MoveNext Loop Nom_Debut.Additem Item Nom_Debut.ListIndex = -0 <table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code> et si tu souhaite ajouter les noms, normallement, et selectionner le dernier element de ton combo , change : <table border=0 cellspacing=0 cellpadding=4 bgcolor=#E0E0E0><tr><td class=code> Nom_Debut.ListIndex = -0
Nom_Debut.ListIndex = Nom_Debut.ListCount -1