Bonsoir vanerdi, bienvenue sur XLpages.com

Tout d'abord, s'agissant de trier le tableau à partir d'un bouton, ton code est fonctionnel, mais tu peux aussi le simplifier comme ça :

DANS UN MODULE DE CODE STANDARD (ex : Module1)

Sub TrierCompte()
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("B3:B173"), SortOn:=xlSortOnValues, _
            Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange Range("A3:J173")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Ensuite, si j'ai bien compris, tu souhaiterais trier le tableau dès que la cellule est changée.

Dans ce cas, il faut lancer le code ci-dessus depuis une procédure évènementielle de la feuille :

DANS LE MODULE DE CODE DE LA FEUIL1

Private Sub Worksheet_Change(ByVal Target As Range)
    Set Target = Target(1)  'pour éviter plantage si Target est une plage entière
    If Not Application.Intersect(Target, Columns(2)) Is Nothing Then
        If IsDate(Target.Value) Then
            TrierCompte     'la procédure de Tri
        End If
    End If
End Sub

En pièce jointe, ton exemple adapté.

Bien cordialement,