XL 2019 Pourquoi une telle différence de temps?

Option Explicit
Sub Macro1()
Dim start, T
start = Timer

'
Application.ScreenUpdating = False
    With [T_Fetes].ListObject.Sort
        .SortFields.Clear
        .SortFields.Add2 SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal, _
            Key:=[T_Fetes[Date_Prochaine]]
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    With [T_Anniversaires].ListObject.Sort
        .SortFields.Clear
        .SortFields.Add2 SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal, _
            Key:=[T_Anniversaires[Prochain Anniversaire]]
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
Application.ScreenUpdating = True

'Mesure temps
T = Timer
MsgBox "durée du traitement: " & Format(T - start, "00.00000") & " secondes " & vbLf & "t=" & T & vbLf & "s=" & start
    
End Sub