Re bonjour,
Désolée ce n'est pas une macro mais VBA:
Private Sub CheckBox1_Click()
If Not CheckBox1 Then [E13:M15].ClearContents: Exit Sub
CheckBox2 = 0: CheckBox5 = 0: [G13] = "P2O5 (mg/Kg) in FP"
[E13] = "REGULATION (EC) No 1333/2008: 08.3.1 Non-heat-treated " _
& "meat products & 08.3.2 Heat-treated meat products"
[H12] = Application.Sum(([E9] / ([E9:G11])) * ([H9] / ([H9] + 100))) 'la formule à la base était =((E9/SUM(E9:G11))*(H9/(SUM(H9+100))))
If [E9] <> 0 Then [E14] = Application.Sum([D12] * [H12] * 10000) _
Else: [E15] = Application.Sum([D12] * ([J9] / 100) * 10000)
[G14] = IIf([E14] > 5000 Or [E15] > 5000, "NO", "YES")
End Sub
Merci.
Lilette