Private Sub TextBox2_Change()
Superieur_a_10_places
End Sub
Sub Superieur_a_10_places()
If ComboBox2 = "Place Cinéma Perigueux" Then
If Val(TextBox2) > 10 Then
MsgBox "RESTREINT A 10 PLACES MAXIMUN", vbOKOnly
TextBox2 = ""
Exit Sub '???
End If
End If
End Sub