Sub DeDupeColSpecific()
Dim der&, t, dico, i&, j&, clef, r, v, n&
Application.ScreenUpdating = False
With ActiveSheet
der = DerLigDesCol(.Range("a:d"))
t = .Range("a:d").Resize(der)
.Columns("a:d").Resize(der).Clear
Set dico = CreateObject("scripting.dictionary")
dico.CompareMode = TextCompare
For i = UBound(t) To 2 Step -1
clef = ""
For j = 1 To 4: clef = clef & "\" & CStr(t(i, j)) & "\": Next
If Not dico.Exists(clef) Then dico.Add clef, i
Next i
ReDim r(1 To dico.Count + 1, 1 To 4)
v = dico.Items
For j = 1 To 4: r(1, j) = t(1, j): Next
n = 1
For i = UBound(v) To LBound(v) Step -1
n = n + 1
For j = 1 To 4: r(n, j) = t(v(i), j): Next
Next i
.Columns("a:d").Resize(n) = r
.Columns("a:d").Resize(n).Borders.LineStyle = xlContinuous
End With
End Sub