Private Sub ComboBox1_Change() 'au changement dans la ComboBox1 "Salle"
Dim cs As String 'déclare la variable cs (Capacité Salle)
cs = Sheets("Feuil2").Cells(Me.ComboBox1.ListIndex + 2, 8).Value 'définit la capacité de la salle
===> ca = CInt(cs) 'définit la variable ca <===
Me.TextBox5.Value = ca 'place la capacité de la salle dans la TextBox5
Me.TextBox4.MaxLength = Len(cs) 'définit le nombre de caractères maximum dans la TextBox4 "Nombre de personnes"
If test = True Then test = False: Call TextBox4_Change 'si test est "vrai" , test devient "faux", lance la procédure "TexBox4_Change"
End Sub