Salut,
Voila un code qui comparait 2 colonnes de codes barres pour t rouver les doublons et les surligner.
Je pense que tu y trouveras ce dont tu as besoin !
Désolé mais je n'ai pas me temps de l'adapter à ta demande je parts en clientèle
++
Creepy
------- CODE -----------------
Dim EAN12 As Range
Dim EAN13 As Range
Dim Cell As Range
Dim i As Integer, x As Integer
Set EAN12 = Sheets(1).Range("A2:A" & Range("A65536").End(xlUp).Row)
Set EAN13 = Sheets(1).Range("B2:A" & Range("B65536").End(xlUp).Row)
x = 2
For Each Cell In EAN12
For i = 1 To EAN13.Count
If CStr(Cell) = CStr(Left(Cells(i, 2), 12)) Then
Cells(x, 4) = Cell: Cells(x, 5) = Cells(i, 2)
Cell.Interior.ColorIndex = 6: Cells(i, 2).Interior.ColorIndex = 6
x = x + 1
End If
Next i
Next Cell
End Sub