Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D2,F2]) Is Nothing Then Worksheet_Activate
Application.EnableEvents = False
With [E13].Resize(100)
.FormulaR1C1 = "=IF(ISTEXT(RC2)*ISNUMBER(1/MAX(RC3-N(RC4),)),MAX(RC3-N(RC4),),"""")"
.Value = .Value 'supprime les formules
End With
With [G13].Resize(100)
.FormulaR1C1 = "=IF(ISTEXT(RC2),R10C7+RC6-QUOTIENT(RC5,3),"""")"
.Value = .Value 'supprime les formules
End With
Application.EnableEvents = True
End Sub