Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C6,C10,C14]) Is Nothing Then
Application.ScreenUpdating = False 'pour accélérer
On Error Resume Next
[C27] = 10 ^ -99 'initialisation
[C25].GoalSeek Goal:=0, ChangingCell:=[C27] '1ère solution
If [C27] < [c10] / 1000 Then [C27] = "éliminée"
[C28] = 10 ^ 99 'initialisation
[C26].GoalSeek Goal:=0, ChangingCell:=[C28] '2ème solution
If [C28] < [c10] / 1000 Then [C28] = "éliminée"
If [C24] > [C22] * Exp(-1 - [C23] / [C22]) Then [C27:C28] = "#N/A" 'pas de solution
End If
End Sub