XL 2019 Bouton de réinitialisation

Sub Classement_pouleA()

Dim ws As Worksheet
Set ws = Worksheets("Poule A")

' Déprotection de la feuille avec mot de passe à mettre
ws.Unprotect Password:=""

' La copie
ws.Range("AB10:AC18").Value = ws.Range("B10:C18").Value
ws.Range("AD10:AF18").Value = ws.Range("W10:Y18").Value

' Le tri
With ws.Sort
    .SortFields.Clear
    .SortFields.Add Key:=ws.Range("AD10:AD18"), Order:=xlDescending
    .SortFields.Add Key:=ws.Range("AE10:AE18"), Order:=xlDescending
    .SortFields.Add Key:=ws.Range("AF10:AF18"), Order:=xlAscending
    
    .SetRange ws.Range("AB10:AF18")
    .Header = xlNo
    .Apply
End With

' Reprotéger la feuille avec mot de passe à mettre
ws.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub