Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
[C3:C54] = "=IF(F3>=10,1,"""")"
[E3:E54] = "=IF(COUNTIF(I$3:I$71,D3),VLOOKUP(D3,I$3:J$71,2,0),"""")"
[C3:E54] = [C3:E54].Value 'supprime les formules
Application.EnableEvents = True
End Sub