Tri de données dans Excel

Sub VoirDoubles()

  Dim I       As Long
  Dim NbrLig  As Long
  Dim NumCol  As Integer
  Dim ColTél  As Range
  
  Set ColTél = Application.InputBox(prompt:="Veuillez cliquer dans la colonne contenant un numéro de téléphone, puis faire OK", Type:=8)
  NumCol = ColTél.Column
  NbrLig = Cells(65536, NumCol).End(xlUp).Row
  
  Application.ScreenUpdating = False
  
  Columns("A:A").Insert Shift:=xlToRight
  Range(Cells(1, 1), Cells(NbrLig, 1)).FormulaR1C1 = "=ROW()"
  Range(Cells(1, 1), Cells(NbrLig, 1)).Select
  Selection.Copy
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
  Cells.Select
  Selection.Sort Key1:=Range(Cells(1, NumCol + 1), Cells(1, NumCol + 1)), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
  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
  Cells.Select
  Selection.Sort Key1:=Range(Cells(1, 1), Cells(1, 1)), Order1:=xlAscending, Header:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
      DataOption1:=xlSortNormal
  Columns("A:A").Delete Shift:=xlToLeft
  Cells(1, 1).Select
  
  Application.ScreenUpdating = True
    
End Sub