Private Sub CheckBox1_Click()
If Me.CheckBox1 = False Then
Me.TextBox2.Enabled = False 'Désactiver
Me.TextBox2.BackColor = RGB(211, 211, 211) 'Fond gris clair
Me.TextBox2 = ""
Else
Me.TextBox2.Enabled = True 'Activer
Me.TextBox2.BackColor = RGB(255, 255, 255) 'Fond blanc
Me.TextBox2 = Application.Sum(Range("L21:L23")) * Range("L24")
Range("E25") = CDbl(Me.TextBox2.Value)
Range("E25").NumberFormat = "# ##0.00"
End If
End Sub