Private Sub Worksheet_Change(ByVal Target As Range)
Dim DerLig As Long, Lig As Long
Dim CellActive As String
CellActive = Target.Address
DerLig = Range("C" & Rows.Count).End(xlUp).Row
Application.EnableEvents = False
Range("B4:B" & DerLig).ClearContents
If Not Intersect(Range(CellActive), Range("D4:D" & DerLig)) Is Nothing Then
Application.ScreenUpdating = False
Lig = 4
For i = 4 To DerLig
If Cells(i, "D") = "Active" Then
Bq = Cells(i, "C")
If Application.WorksheetFunction.CountIf(Range("B4:B" & DerLig), Bq) = 0 Then
Cells(Lig, "B") = Bq
Lig = Lig + 1
End...