Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Integer
Application.ScreenUpdating = False
If Not Intersect(Target, Range("E17:E138,F17:F138,G17:G138,M17:M138,BD17:BD138")) Is Nothing Then
L = Target.Row
If Range("G" & L) = "Acier galvanisé rectangulaire" Or Range("G" & L) = "Fibre de verre" Then
Application.EnableEvents = False
If Range("BE" & L) < 0 Then Range("BE" & L) = 0
Range("BI" & L).GoalSeek Goal:=0, ChangingCell:=Range("BE" & L)
Range("BE" & L) = Application.WorksheetFunction.RoundUp(Range("BE" & L), 25)
Application.EnableEvents = True
End If
End If
Application.ScreenUpdating = True
End Sub