Macro tri

Bonjour,

je n'arrive pas à trouver pourquoi mon bouton change de numéro à chaque fois
que je demande le tri.
Je vous joins la macro:

Sub tri()
'
' tri Macro
'

'
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Feuil1").Sort
.SetRange Range("A1:C100")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Buttons.Add(243, 30.75, 50.25, 30).Select
Selection.OnAction = "tri"
End Sub

merci pour votre aide