Sub Doublons()
Dim r As Range, ncol%, d As Object, t$, col%, doublon As Range
Set r = [B:B] 'zone comparée - Ici cellule B / Mets [A:F] si tu veux que la ligne entière soit comparée
Set r = Intersect(r, ActiveSheet.UsedRange)
If r Is Nothing Then Exit Sub
ncol = r.Columns.Count
Set d = CreateObject("Scripting.Dictionary")
For Each r In r.Rows
t = ""
For col = 1 To ncol
t = t & r.Cells(col) & Chr(1)
Next
t = UCase(Application.Trim(t))
If d.Exists(t) Then
Set doublon = Union(IIf(doublon Is Nothing, r, doublon), r)
Else
d(t) = t
End If
Next
If Not doublon Is Nothing Then doublon.Cells(i, j).Interior.ColorIndex = 3
End Sub