Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 2: Combo1.ListIndex = -1 End Select If Combo1.ListIndex <> -1 Then MsgBox "item accepté" End If End Sub Private Sub Form_Load() Dim i As Long For i = 0 To 10 Combo1.AddItem i Next i End Sub