Private Sub Worksheet_Change(ByVal Target As Range) ' Efface les produits quand HW/SW change
If Not Application.Intersect(Target, Range("K4")) Is Nothing Then
Application.EnableEvents = False
Range("E4") = " "
End If
If Not Application.Intersect(Target, Range("E4")) Is Nothing Then
Application.EnableEvents = False
Range("K4") = " "
End If
Application.EnableEvents = True
End Sub