Sub doublons()
Dim PasDoublon As New Collection
On Error Resume Next
Set A = Range([A1], [A65536].End(xlUp)) 'Adapter la colonne de la première des 3 cellules
For j = 1 To A.Count
PasDoublon.Add A.Cells(j) & A.Cells(j)(1, 2) & A.Cells(j)(1, 3), UCase(CStr(A.Cells(j) & A.Cells(j)(1, 2) & A.Cells(j)(1, 3)))
If Err <> 0 Then
Err.Clear
PasDoublon.Add "FoEffacerLigne"
End If
Next j
For t = PasDoublon.Count To 1 Step -1
If PasDoublon(t) = "FoEffacerLigne" Then
Range(A.Cells(t), A.Cells(t).Offset(0, 2)).Interior.ColorIndex = 22
'Mettre la ligne ci-dessous au lieu de celle ci-dessus
' Pour effacer les doublons au lieu de les colorier en rouge
'A.Cells(t).entirerow.delete
End If
Next
On Error GoTo 0
End Sub