Remplir Listbox SelectionMode

Bonjour,

J'ai une listbox que je remplie avec des éléments.

Quand je mets la propriété selectionMode sur One, ma listbox se remplie normalement mais quand je la mets sur MultiExtended, elle n'affiche que le premier élément.

Quelqu'un pourrait t'il m'aider.

Cordialement.

Mon code :

requete1 =

"select * from Employes "
rs1 = base.OpenRecordset(requete1, DAO.RecordsetTypeEnum.dbOpenDynaset)
If rs1.EOF = FalseThen
      rs1.MoveFirst()
      While rs1.EOF = False
               valeur = rs1.Fields("nomEmp").Value & Space(11 - Len(rs1.Fields("nomEmp").Value)) & rs1.Fields("prenomEmp").Value
               LS_EmpPro.Items.Add(valeur)
                rs1.MoveNext()
      EndWhile
       rs1.Close()
EndIf