Bonjour à tous,

Le code ci-dessous me permet de colorer des cellules lorsqu'un doublon est signalé. Ce que je ne comprends pas, c'est que les cellules b1:b4, ce colorent en rouge dès que je saisie des données dans n'importe quelle cellule.
Pouvez-vous m'aider à comprendre ou me montrer mon erreur ?
Je vous en remercie par avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Worksheet_change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Column <> 2 Then Exit Sub
Test
End Sub
 
Sub Test()
Dim I As Integer, J As Integer, X As Byte, C As Range, DerL As Integer
    Application.ScreenUpdating = False
        Range("B6:B3000").Interior.ColorIndex = xlNone
    X = 3
        DerL = Cells(Rows.Count, 2).End(xlUp).Row
    For I = 1 To DerL - 1
        If Cells(I, 2).Interior.ColorIndex = xlNone Then
            If X < 57 Then
                X = X
            Else
                X = 3
            End If
        For J = I + 1 To DerL
            If Cells(J, 2) = Cells(I, 2) Then
                Cells(I, 2).Interior.ColorIndex = X
                Cells(J, 2).Interior.ColorIndex = X
            End If
        Next
        End If
        X = X + 1
    Next
Application.ScreenUpdating = True
End Sub