XL 2019 concours boules / compatibilite macro tri qui fonctionne avec excel 2019 et pas sur 2007 ou 2013

Bonjour
cet macro tri fonctionne bien sur toute les feuilles du dossier chez moi avec excel 2019
j'ai testé le concours sur autre ordi avec des version excel 2007 ou excel 2013 la macro tri bug (erreur 438)
au club on a des PC avec ces config
modèle sur fichier joint
si vous avez une solution merci

Sub Tri()
'
' Tri Macro
'

'
Range("AB3:AD" & Range("AB" & Rows.Count).End(xlUp).Row).Select
Selection.Copy
Range("BO3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add2 Key:=Range("BO4:BO" & Range("BO" & Rows.Count).End(xlUp).Row), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
'ActiveSheet.Sort.SortFields.Add2 Key:=Range("BP4:BP" & Range("BP" & Rows.Count).End(xlUp).Row), _
'SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add2 Key:=Range("BP4:BP" & Range("BP" & Rows.Count).End(xlUp).Row), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("BO3:BQ" & Range("BO" & Rows.Count).End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

modèle sur fichier joint
si vous avez une solution merci