Tri + Doublon Macro Excel

Bonjour,

J'ai une problème je cherchai sur internet un programme de tri et qui détectent les doublons mais j'ai trouve des programmes intéressantent , les voici :

- le programme de tri de microsoft qui tri les cellule sélectionner :

Sub SortAllRangeData()
' Place column header for temporary sort area.
Range("IV1").Value = "Numbers"

' Move numbers to temporary sort location.
For Each cell In Selection
Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
Next cell

' Sort numbers in ascending order.

Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"), _
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

' Move sorted data back to original sheet location.

Selection(1, 1).Activate ' Make sure the ActiveCell is the
' top left of Selection first.
CCnt = Selection.Columns.Count

RCnt = Selection.Rows.Count
CellCnt = Selection.Cells.Count
Tcell = 2
For c = 1 To CCnt
For r = 1 To RCnt
Range(ActiveCell.Address).Offset(r - 1, c - 1).Value = _
Range("iv" & Tcell).Value

Tcell = Tcell + 1
Next r
Next c

' Clean up temporary sort location.
Range("IV1", Range("IV1").End(xlDown)).Clear
End Sub

et j'ai trouve un programme qui détectent les doublons
et la parti qui m'intéresse c'est :

For I = 2 To NbrLig
If Cells(I, NumCol + 1).Value = Cells(I - 1, NumCol + 1).Value Then
Cells(I, NumCol + 1).Font.Bold = True
Cells(I, NumCol + 1).Font.ColorIndex = 3
Cells(I - 1, NumCol + 1).Font.Bold = True
Cells(I - 1, NumCol + 1).Font.ColorIndex = 3
End If
Next

je voudrai fusionné les deux qqun pourrai me dire comment faire ? ou me donner ca version modifier fait avec le premier programme !
Personnellement je suis nul en VBA c'est la première fois que je fais ca !!

Je vous remerci d'avance