Private Sub cmdAfficher_Click()
For intIndice = 1 To 5
1        stAffichage.AddItem intIndice
Next intIndice

End Sub