Option Explicit
Sub Test()
With Feuil1
Range("O2:O4000").Copy
Range("T2").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
Range("P2:P4000").Copy
Range("T4000").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
Range("Q2:Q4000").Copy
Range("T8000").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
Range("R2:R4000").Copy
Range("T12000").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=True
With .Sort
.SortFields.Clear
.SortFields.Add Key:=Range("T2"), SortOn:=xlSortOnValues, Order:=xlAscending
.SetRange Range("T1:T16000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$T$1:$T$12000").RemoveDuplicates Columns:=1, Header:=xlNo
Range("T1").Select
End With
End Sub