Bonsoir,
le code ci-dessous affecte un numéro unique à chaque série de doublon, comme cela en filtrant sur "3" par exemple vous avez tous les doublons de "3" :
Sub Doublons()
Dim Tablo, TabTrans(), Tempo, NumDoublon
Tempo = Timer
Tablo = Range("B4:D" & Range("C65500").End(xlUp).Row).Value
Range("B4:D" & Range("C65500").End(xlUp).Row).Interior.ColorIndex = xlNone
Application.ScreenUpdating = False
ReDim TabTrans(1 To 2, 1 To UBound(Tablo))
For i = 1 To UBound(Tablo)
TabTrans(1, i) = Tablo(i, 2) & Tablo(i, 3)
Next i
For i = 1 To UBound(TabTrans, 2)
For j = i + 1 To UBound(TabTrans, 2)
If TabTrans(1, i) = TabTrans(1, j) Then
If TabTrans(2, i) <> "" Then
TabTrans(2, j) = TabTrans(2, i)
Else
NumDoublon = NumDoublon + 1
TabTrans(2, i) = NumDoublon
TabTrans(2, j) = NumDoublon
End If
End If
Next j
Next i
For i = 1 To UBound(TabTrans, 2)
If TabTrans(2, i) > 0 Then
Range("B" & i + 3 & ":D" & i + 3).Interior.Color = RGB(255, 255, 204)
Range("E" & i + 3).Value = TabTrans(2, i) ' ici on indique en colonne E le nombre de fois qu'est doublé l'information
End If
Next i
MsgBox Timer - Tempo
Application.ScreenUpdating = True
End Sub
@ bientôt
LouReeD