Option Explicit
Private test As Boolean
Private Sub Lbx_Qui_Change()
Dim k As Integer
If test = True Then Exit Sub
k = Lbx_Qui.ListIndex
If Lbx_Qui.List(k, 1) <> "A" And Lbx_Qui.Selected(k) Then
test = True
MsgBox "Bien essayé ! Mais ..." & Chr(10) & Chr(10) & Lbx_Qui.List(k, 0) & _
" n'y a pas droit", vbExclamation
Select_ZO = Select_ZO - 2
Lbx_Qui.Selected(k) = False
End If
End Sub