Bonjour, le code dans le fichier est différent de celui dans mon message :
Private Sub ComboBox1_Change()
Me.TextBox7.Value = Sheets("Donnéesorties").Cells(Rows.Count, 9).End(xlUp) 'Par défaut, la valeur de textbox7 correspond à la dernière ligne de la colonne I
If Me.ComboBox1.Value = 50 Or Me.ComboBox1.Value = 100 Then Me.TextBox7.Value = Me.ComboBox1.Value 'Si la combobox1 vaut 50 OU 100, alors textbox7 prend la valeur de combobox1
End Sub