macro tri alpha

Sub Tri_Noms()
With ActiveSheet
    .Unprotect "3132"
    .Range("A8:O42").Sort Key1:=.Range("B8"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(7, 2).Select
End Sub


Sub Tri_Classes()
With ActiveSheet
    .Unprotect "3132"
    .Range("A8:O42").Sort Key1:=.Range("A8"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(7, 2).Select
End Sub


Sub Tri_Equipes()
With ActiveSheet
    .Unprotect "3132"
    .Range("A8:O42").Sort Key1:=.Range("E8"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(7, 2).Select
End Sub


Sub Tri_Equipes_Liste()
With ActiveSheet
    .Unprotect "3132"
    .Range("A6:E40").Sort Key1:=.Range("E6"), Order1:=xlAscending, Header:=xlNo
    .Protect "3132", True, True, True
End With
Cells(5, 2).Select
End Sub


Sub Réinitialiser()
Reponse = MsgBox("Etes-vous sûr de vouloir tout supprimer", vbQuestion + vbYesNo)
If Reponse = vbYes Then
Feuil1.[A6:E40,E2:H2,E3,H3].ClearContents
Feuil2.[F8:J42,M8:O42].ClearContents
End If
End Sub

Private Sub CommandButton1_Click()
Dim DerL&
DerL = Application.WorksheetFunction.CountIf(Range("A8:A43"), ">0") + 7
ActiveSheet.Unprotect "3132"
    Range("A7:L" & DerL).Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.Protect "3132", True, True, True
End Sub

Private Sub CommandButton2_Click()
Dim DerL&
DerL = Application.WorksheetFunction.CountIf(Range("A8:A43"), ">0") + 7
ActiveSheet.Unprotect "3132"
    Range("A7:L" & DerL).Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlYes
ActiveSheet.Protect "3132", True, True, True
End Sub

 Header:=xlYes