Dim aVilles(0 To 5) As String Dim r As Integer Dim iTirage As Integer Randomize ' Mieux vadrait le mettre dans le Form_Load (si) aVilles(0) = "Trifouilli les oies" aVilles(1) = "Tarazout" aVilles(2) = "Cluny" aVilles(3) = "Mâcon" aVilles(4) = "Autun" aVilles(5) = "Le Creusot" For r = 0 To 5 iTirage = Int(Rnd() * 6) Do While aVilles(iTirage) = "" iTirage = Int(Rnd() * 6) DoEvents Loop Debug.Print iTirage, aVilles(iTirage) aVilles(iTirage) = "" DoEvents Next r