Sub Doublons()
Dim r As Range, ncol%, d As Object, i&, t$, col%, doublon As Range
Set r = [A:N]
Set r = Intersect(r, ActiveSheet.UsedRange)
If r Is Nothing Then Exit Sub
ncol = r.Columns.Count
Set d = CreateObject("Scripting.Dictionary")
For i = r.Rows.Count To 1 Step -1 'on commence par la fin
t = ""
For col = 1 To ncol
t = t & r.Cells(i, col) & Chr(1)
Next
t = UCase(Application.Trim(t))
If d.Exists(t) Then
Set doublon = Union(IIf(doublon Is Nothing, r.Rows(i), doublon), r.Rows(i))
Else
d(t) = t
End If
Next
If Not doublon Is Nothing Then doublon.EntireRow.Delete
End Sub