Private Sub UserForm_Activate()
Me.Controls("TextBox10").Value = Format(Sheets("Feuil1").[E25], "0 %") 'Pourcentage de remise
Me.Controls("TextBox8").Value = Format(Sheets("Feuil1").[F25], "##0.00 €")
Me.Controls("TextBox9").Value = Format(Sheets("Feuil1").[F26], "##0.00 €") 'Total après remise
TextBox23.Visible = Val(Replace(TextBox8, ",", ".")) > 0
End Sub