Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur
Dim xCell As Range
If flagFlux = True Then Exit Sub
If Not Intersect(Range("B2:B33,E2:E33,H2:H33,K2:K33,N2:N33"), Target) Is Nothing Then
flagFlux = True
For Each xCell In Intersect(Range("B2:B33,E2:E33,H2:H33,K2:K33,N2:N33"), Target).Cells
If Application.CountIf(Range("B2:N33"), xCell) > 1 Then
MsgBox "Doublon !!!! :" & xCell
Valeur = Target
Range("B2:B33,E2:E33,H2:H33,K2:K33,N2:N33").Find(Valeur).Activate
End If
Next xCell
End If
flagFlux = False
End Sub