Merci pour la réponse,
J'aimerai maintenant que dans la case corrigé la réponse correpondante s'affiche...
J'ai écris le code :
Private Sub UserForm_initialize()
ListBox1.List = Sheets("RANG 3").Range("A2:A90").Value
ListBox1.ListIndex = Int(90 * Rnd)
Rnd
ListBox2 = ListBox1.Colums.Offset(0, 1)
Mais cela ne fonctionne pas, as tu une idée?