Microsoft 365 UserForm afficher label sous condition

Private Sub Textbox8_Change()
alerte = IIf(Val(Replace(TextBox8, ",", ".")) = Val(Replace(TextBox9, ",", ".")) + Val(Replace(TextBox10, ",", ".")) _
     + Val(Replace(TextBox11, ",", ".")) + Val(Replace(TextBox12, ",", ".")) + Val(Replace(TextBox13, ",", ".")), "", "ERREUR !!!")
End Sub

Private Sub Textbox9_Change(): Textbox8_Change: End Sub

Private Sub Textbox10_Change(): Textbox8_Change: End Sub

Private Sub Textbox11_Change(): Textbox8_Change: End Sub

Private Sub Textbox12_Change(): Textbox8_Change: End Sub

Private Sub Textbox13_Change(): Textbox8_Change: End Sub