Private Sub Button_Controle_Click()
Label_Controle = Label_Controle + 1
End Sub
Public Sub Button_Emballe_Click()
If Label_Emballe < Label_Controle Then
Label_Emballe = Label_Emballe + 1
Else
MsgBox ("Vous ne pouvez pas emballer un sac qui n'est pas contrôlé")
End If
End Sub