Tri de données

Sub tri()
Dim Tourne As Long, LigneFin As Long
Dim Indexe As Integer
Dim Mem As String
LigneFin = Range("A" & Rows.Count).End(xlUp).Row
Indexe = 0
For Tourne = 1 To LigneFin
 If Mem <> Range("A" & Tourne) Then Indexe = Indexe + 1: Mem = Range("A" & Tourne)
 Range("C" & Tourne) = Indexe
Next

With Worksheets("Tampon").Sort
  .SortFields.Clear
  .SortFields.Add Key:=Range("C:C"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  .SortFields.Add Key:=Range("B:B"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  .SetRange Range("A:C")
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
End With
End Sub