Private Sub TextBox2_AfterUpdate()
Select Case Cdbl(TextBox2.Text)-CDbl(TextBox1.Text)
Case Is = 0
TextBox2.BackColor = RGB(255, 255, 255) 'blanc
Case Is > 0
TextBox2.BackColor = RGB(255, 0, 0) 'rouge
Case Else
TextBox2.BackColor = RGB(0, 255, 0) 'vert
End Select
End Sub