Boucle sur un long code de tri alphabétique

Bonjour à tous,

y-a-t-il un moyen de faire une boucle sur ce long code car le traitement de celui-ci m'est refusé lors d'un message du système me disant "code trop long".

c'est un code de tri alphabétique de plusieurs plages de cellules (20 plages par onglet) et sur 12 onglets

j'ai essayé de le faire à plusieurs reprises mais mon manque d'expérience en VBA me donne des bugs, donc ne fonctionne pas du tout.

j'aimerai comprendre la boucle et non pas simplement la recopier dans mon code.

Merci à vous tous

Sub Tritouteslesclasses()

' on demande de confirmer le tri alphabétique
    If MsgBox("Etes-vous certain de vouloir faire ce tri ?", vbYesNo, "Demande de confirmation") = vbYes Then

'on trie par ordre alphabétique

' Cadre 1 Macro
' Tri alphabétique des élèves de la classe de Cadre 1 du mois de Août au mois de Juillet
'
   'Tri Août
    Sheets("Août").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B7:BL33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B7:BJ33").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B7:BJ33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B7:BJ33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B7:BL33" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B7:BJ33").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B7:BJ33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B7:BJ33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B7:BL33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B7:BL33" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B7:BH33").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B7:BH33" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B7:BH33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B7:BL33"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B7:BJ33").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B7:BJ33") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B7:BJ33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B7:BL33"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B7:BJ33").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B7:BJ33"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B7:BJ33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B7:BL33").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B7:BL33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B7:BL33")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

' Cadre 2 Macro
' Tri alphabétique des élèves de la classe de Cadre 2 du mois de Août au mois de Juillet
'
   'Tri Août
    Sheets("Août").Select
    Range("B44:BL70").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B44:BL70"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B44:BL70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B44:BJ70").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B44:BJ70"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B44:BJ70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B44:BL70").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B44:BL70" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B44:BL70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B44:BJ70").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B44:BJ70"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B44:BJ70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B44:BL70").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B44:BL70"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B44:BL70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B44:BL70").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B44:BL70" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B44:BL70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B44:BH70").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B44:BH70" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B44:BH70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B44:BL70").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B44:BL70"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B44:BL70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B44:BJ70").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B44:BJ70") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B44:BJ70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B44:BL70").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B44:BL70"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B44:BL70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B44:BJ70").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B44:BJ70"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B44:BJ70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B44:BL70").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B44:BL70"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B44:BL70")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 3 Macro
' Tri alphabétique des élèves de la classe de Cadre 3 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B81:BL107").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B81:BL107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B81:BL107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B81:BJ107").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B81:BJ107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B81:BJ107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B81:BL107").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B81:BL107" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B81:BL107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B81:BJ107").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B81:BJ107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B81:BJ107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B81:BL107").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B81:BL107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B81:BL107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B81:BL107").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B81:BL107" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B81:BL107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B81:BH107").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B81:BH107" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B81:BH107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B81:BL107").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B81:BL107"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B81:BL107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B81:BJ107").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B81:BJ107") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B81:BJ107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B81:BL107").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B81:BL107"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B81:BL107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B81:BJ107").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B81:BJ107"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B81:BJ107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B81:BL107").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B81:BL107"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B81:BL107")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

 ' Cadre 4 Macro
' Tri alphabétique des élèves de la classe de Cadre 4 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B118:BL144").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B118:BL144"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B118:BL144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B118:BJ144").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B118:BJ144"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B118:BJ144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B118:BL144").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B118:BL144" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B118:BL144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B118:BJ144").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B118:BJ144"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B118:BJ144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B118:BL144").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B118:BL144"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B118:BL144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B118:BL144").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B118:BL144" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B118:BL144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B118:BH144").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B118:BH144" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B118:BH144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B118:BL144").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B118:BL144"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B118:BL144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B118:BJ144").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B118:BJ144") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B118:BJ144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B118:BL144").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B118:BL144"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B118:BL144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B118:BJ144").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B118:BJ144"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B118:BJ144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B118:BL144").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B118:BL144"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B118:BL144")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 5 Macro
' Tri alphabétique des élèves de la classe de Cadre 5 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B155:BL181").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B155:BL181"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B155:BL181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B155:BJ181").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B155:BJ181"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B155:BJ181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B155:BL181").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B155:BL181" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B155:BL181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B155:BJ181").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B155:BJ181"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B155:BJ181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B155:BL181").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B155:BL181"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B155:BL181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B155:BL181").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B155:BL181" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B155:BL181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B155:BH181").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B155:BH181" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B155:BH181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B155:BL181").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B155:BL181"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B155:BL181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B155:BJ181").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B155:BJ181") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B155:BJ181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B155:BL181").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B155:BL181"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B155:BL181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B155:BJ181").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B155:BJ181"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B155:BJ181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B155:BL181").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B155:BL181"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B155:BL181")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 6 Macro
' Tri alphabétique des élèves de la classe de Cadre 6 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B192:BL218").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B192:BL218"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B192:BL218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B192:BJ218").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B192:BJ218"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B192:BJ218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B192:BL218").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B192:BL218" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B192:BL218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B192:BJ218").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B192:BJ218"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B192:BJ218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B192:BL218").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B192:BL218"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B192:BL218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B192:BL218").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B192:BL218" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B192:BL218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B192:BH218").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B192:BH218" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B192:BH218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B192:BL218").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B192:BL218"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B192:BL218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B192:BJ218").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B192:BJ218") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B192:BJ218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B192:BL218").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B192:BL218"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B192:BL218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B192:BJ218").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B192:BJ218"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B192:BJ218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B192:BL218").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B192:BL218"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B192:BL218")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 7 Macro
' Tri alphabétique des élèves de la classe de Cadre 7 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B229:BL255").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B229:BL255"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B229:BL255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B229:BJ255").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B229:BJ255"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B229:BJ255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B229:BL255").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B229:BL255" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B229:BL255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B229:BJ255").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B229:BJ255"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B229:BJ255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B229:BL255").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B229:BL255"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B229:BL255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B229:BL255").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B229:BL255" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B229:BL255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B229:BH255").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B229:BH255" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B229:BH255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B229:BL255").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B229:BL255"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B229:BL255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B229:BJ255").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B229:BJ255") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B229:BJ255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B229:BL255").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B229:BL255"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B229:BL255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B229:BJ255").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B229:BJ255"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B229:BJ255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B229:BL255").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B229:BL255"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B229:BL255")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 8 Macro
' Tri alphabétique des élèves de la classe de Cadre 8 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B266:BL292").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B266:BL292"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B266:BL292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B266:BJ292").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B266:BJ292"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B266:BJ292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B266:BL292").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B266:BL292" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B266:BL292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B266:BJ292").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B266:BJ292"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B266:BJ292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B266:BL292").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B266:BL292"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B266:BL292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B266:BL292").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B266:BL292" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B266:BL292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B266:BH292").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B266:BH292" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B266:BH292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B266:BL292").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B266:BL292"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B266:BL292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B266:BJ292").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B266:BJ292") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B266:BJ292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B266:BL292").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B266:BL292"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B266:BL292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B266:BJ292").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B266:BJ292"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B266:BJ292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B266:BL292").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B266:BL292"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B266:BL292")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 9 Macro
' Tri alphabétique des élèves de la classe de Cadre 9 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B303:BL329").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B303:BL329"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B303:BL329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B303:BJ329").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B303:BJ329"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B303:BJ329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B303:BL329").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B303:BL329" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B303:BL329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B303:BJ329").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B303:BJ329"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B303:BJ329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B303:BL329").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B303:BL329"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B303:BL329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B303:BL329").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B303:BL329" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B303:BL329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B303:BH329").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B303:BH329" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B303:BH329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B303:BL329").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B303:BL329"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B303:BL329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B303:BJ329").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B303:BJ329") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B303:BJ329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B303:BL329").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B303:BL329"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B303:BL329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B303:BJ329").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B303:BJ329"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B303:BJ329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B303:BL329").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B303:BL329"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B303:BL329")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 10 Macro
' Tri alphabétique des élèves de la classe de Cadre 10 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B340:BL366").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B340:BL366"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B340:BL366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B340:BJ366").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B340:BJ366"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B340:BJ366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B340:BL366").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B340:BL366" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B340:BL366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B340:BJ366").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B340:BJ366"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B340:BJ366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B340:BL366").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B340:BL366"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B340:BL366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B340:BL366").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B340:BL366" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B340:BL366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B340:BH366").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B340:BH366" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B340:BH366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B340:BL366").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B340:BL366"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B340:BL366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B340:BJ366").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B340:BJ366") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B340:BJ366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B340:BL366").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B340:BL366"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B340:BL366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B340:BJ366").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B340:BJ366"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B340:BJ366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B340:BL366").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B340:BL366"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B340:BL366")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 11 Macro
' Tri alphabétique des élèves de la classe de Cadre 11 du mois de Août au mois de Juillet
'
    'Tri Août
    Sheets("Août").Select
    Range("B377:BL403").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B377:BL403"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B377:BL403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B377:BJ403").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B377:BJ403"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B377:BJ403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B377:BL403").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B377:BL403" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B377:BL403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B377:BJ403").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B377:BJ403"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B377:BJ403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B377:BL403").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B377:BL403"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B377:BL403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B377:BL403").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B377:BL403" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B377:BL403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B377:BH403").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B377:BH403" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B377:BH403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B377:BL403").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B377:BL403"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B377:BL403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B377:BJ403").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B377:BJ403") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B377:BJ403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B377:BL403").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B377:BL403"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B377:BL403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B377:BJ403").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B377:BJ403"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B377:BJ403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B377:BL403").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B377:BL403"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B377:BL403")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 12 Macro
' Tri alphabétique des élèves de la classe de Cadre 12 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B414:BL440").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B414:BL440"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B414:BL440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B414:BJ440").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B414:BJ440"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B414:BJ440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B414:BL440").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B414:BL440" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B414:BL440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B414:BJ440").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B414:BJ440"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B414:BJ440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B414:BL440").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B414:BL440"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B414:BL440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B414:BL440").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B414:BL440" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B414:BL440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B414:BH440").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B414:BH440" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B414:BH440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B414:BL440").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B414:BL440"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B414:BL440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B414:BJ440").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B414:BJ440") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B414:BJ440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B414:BL440").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B414:BL440"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B414:BL440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B414:BJ440").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B414:BJ440"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B414:BJ440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B414:BL440").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B414:BL440"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B414:BL440")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 13 Macro
' Tri alphabétique des élèves de la classe de Cadre 13 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B451:BL477").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B451:BL477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B451:BL477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B451:BJ477").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B451:BJ477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B451:BJ477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B451:BL477").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B451:BL477" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B451:BL477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B451:BJ477").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B451:BJ477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B451:BJ477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B451:BL477").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B451:BL477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B451:BL477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B451:BL477").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B451:BL477" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B451:BL477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B451:BH477").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B451:BH477" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B451:BH477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B451:BL477").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B451:BL477"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B451:BL477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B451:BJ477").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B451:BJ477") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B451:BJ477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B451:BL477").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B451:BL477"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B451:BL477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B451:BJ477").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B451:BJ477"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B451:BJ477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B451:BL477").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B451:BL477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B451:BL477")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 14 Macro
' Tri alphabétique des élèves de la classe de Cadre 14 du mois de Août au mois de Juillet
'
   'Tri Août
    Sheets("Août").Select
    Range("B488:BL514").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B488:BL514"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B488:BL514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B488:BJ514").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B488:BJ514"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B488:BJ514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B488:BL514").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B488:BL514" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B488:BL514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B488:BJ514").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B488:BJ514"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B488:BJ514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B488:BL514").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B488:BL514"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B488:BL514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B488:BL514").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B488:BL514" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B488:BL514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B488:BH514").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B488:BH514" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B488:BH514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B488:BL514").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B488:BL514"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B488:BL514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B488:BJ514").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B488:BJ514") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B488:BJ514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B488:BL514").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B488:BL514"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B488:BL514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B488:BJ514").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B488:BJ514"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B488:BJ514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B488:BL514").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B488:BL514"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B488:BL514")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 15 Macro
' Tri alphabétique des élèves de la classe de Cadre 15 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B525:BL551").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B525:BL551"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B525:BL551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B525:BJ551").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B525:BJ551"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B525:BJ551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B525:BL551").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B525:BL551" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B525:BL551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B525:BJ551").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B525:BJ551"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B525:BJ551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B525:BL551").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B525:BL551"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B525:BL551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B525:BL551").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B525:BL551" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B525:BL551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B525:BH551").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B525:BH551" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B525:BH551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B525:BL551").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B525:BL551"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B525:BL551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B525:BJ551").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B525:BJ551") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B525:BJ551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B525:BL551").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B525:BL551"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B525:BL551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B525:BJ551").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B525:BJ551"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B525:BJ551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B525:BL551").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B525:BL551"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B525:BL551")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 16 Macro
' Tri alphabétique des élèves de la classe de Cadre 16 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B562:BL588").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B562:BL588"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B562:BL588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B562:BJ588").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B562:BJ588"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B562:BJ588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B562:BL588").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B562:BL588" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B562:BL588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B562:BJ588").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B562:BJ588"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B562:BJ588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B562:BL588").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B562:BL588"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B562:BL588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B562:BL588").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B562:BL588" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B562:BL588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B562:BH588").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B562:BH588" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B562:BH588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B562:BL588").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B562:BL588"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B562:BL588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B562:BJ588").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B562:BJ588") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B562:BJ588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B562:BL588").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B562:BL588"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B562:BL588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B562:BJ588").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B562:BJ588"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B562:BJ588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Juillet
    Sheets("Juillet").Select
    Range("B562:BL588").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B562:BL588"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B562:BL588")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 17 Macro
' Tri alphabétique des élèves de la classe de Cadre 17 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B599:BL625").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B599:BL625"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B599:BL625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B599:BJ625").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B599:BJ625"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B599:BJ625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B599:BL625").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B599:BL625" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B599:BL625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B599:BJ625").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B599:BJ625"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B599:BJ625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B599:BL625").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B599:BL625"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B599:BL625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B599:BL625").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B599:BL625" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B599:BL625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B599:BH625").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B599:BH625" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B599:BH625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B599:BL625").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B599:BL625"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B599:BL625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B599:BJ625").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B599:BJ625") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B599:BJ625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B599:BL625").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B599:BL625"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B599:BL625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B599:BJ625").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B599:BJ625"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B599:BJ625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B599:BL625").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B599:BL625"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B599:BL625")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 18 Macro
' Tri alphabétique des élèves de la classe de Cadre 18 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B636:BL662").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B636:BL662"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B636:BL662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B636:BJ662").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B636:BJ662"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B636:BJ662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B636:BL662").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B636:BL662" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B636:BL662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B636:BJ662").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B636:BJ662"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B636:BJ662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B636:BL662").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B636:BL662"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B636:BL662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B636:BL662").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B636:BL662" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B636:BL662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B636:BH662").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B636:BH662" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B636:BH662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B636:BL662").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B636:BL662"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B636:BL662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B636:BJ662").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B636:BJ662") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B636:BJ662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B636:BL662").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B636:BL662"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B636:BL662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B636:BJ662").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B636:BJ662"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B636:BJ662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B636:BL662").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B636:BL662"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B636:BL662")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 19 Macro
' Tri alphabétique des élèves de la classe de Cadre 19 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B673:BL699").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B673:BL699"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B673:BL699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B673:BJ699").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B673:BJ699"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B673:BJ699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B673:BL699").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B673:BL699" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B673:BL699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B673:BJ699").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B673:BJ699"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B673:BJ699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B673:BL699").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B673:BL699"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B673:BL699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B673:BL699").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B673:BL699" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B673:BL699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B673:BH699").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B673:BH699" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B673:BH699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B673:BL699").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B673:BL699"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B673:BL699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B673:BJ699").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B673:BJ699") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B673:BJ699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B673:BL699").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B673:BL699"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B673:BL699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B673:BJ699").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B673:BJ699"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B673:BJ699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B673:BL699").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B673:BL699"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B673:BL699")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    ' Cadre 20 Macro
' Tri alphabétique des élèves de la classe de Cadre 20 du mois de Août au mois de Juillet
'

   'Tri Août
    Sheets("Août").Select
    Range("B710:BL736").Select
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Août").Sort.SortFields.Add2 Key:=Range( _
        "B710:BL736"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Août").Sort
        .SetRange Range("B710:BL736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

   'Tri Septembre
    Sheets("Septembre").Select
    Range("B710:BJ736").Select
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Septembre").Sort.SortFields.Add2 Key:=Range( _
        "B710:BJ736"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Septembre").Sort
        .SetRange Range("B710:BJ736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Octobre
    Sheets("Octobre").Select
    Range("B710:BL736").Select
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Octobre").Sort.SortFields.Add2 Key:=Range("B710:BL736" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Octobre").Sort
        .SetRange Range("B710:BL736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Novembre
    Sheets("Novembre").Select
    Range("B710:BJ736").Select
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Novembre").Sort.SortFields.Add2 Key:=Range( _
        "B710:BJ736"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Novembre").Sort
        .SetRange Range("B710:BJ736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Décembre
    Sheets("Décembre").Select
    Range("B710:BL736").Select
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Décembre").Sort.SortFields.Add2 Key:=Range( _
        "B710:BL736"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Décembre").Sort
        .SetRange Range("B710:BL736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Janvier
    Sheets("Janvier").Select
    Range("B710:BL736").Select
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Janvier").Sort.SortFields.Add2 Key:=Range("B710:BL736" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Janvier").Sort
        .SetRange Range("B710:BL736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Février
    Sheets("Février").Select
    Range("B710:BH736").Select
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Février").Sort.SortFields.Add2 Key:=Range("B710:BH736" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Février").Sort
        .SetRange Range("B710:BH736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mars
    Sheets("Mars").Select
    Range("B710:BL736").Select
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mars").Sort.SortFields.Add2 Key:=Range("B710:BL736"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mars").Sort
        .SetRange Range("B710:BL736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Avril
    Sheets("Avril").Select
    Range("B710:BJ736").Select
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Avril").Sort.SortFields.Add2 Key:=Range("B710:BJ736") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Avril").Sort
        .SetRange Range("B710:BJ736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Mai
    Sheets("Mai").Select
    Range("B710:BL736").Select
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Mai").Sort.SortFields.Add2 Key:=Range("B710:BL736"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Mai").Sort
        .SetRange Range("B710:BL736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juin
    Sheets("Juin").Select
    Range("B710:BJ736").Select
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juin").Sort.SortFields.Add2 Key:=Range("B710:BJ736"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Juin").Sort
        .SetRange Range("B710:BJ736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    'Tri Juillet
    Sheets("Juillet").Select
    Range("B710:BL736").Select
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Juillet").Sort.SortFields.Add2 Key:=Range( _
        "B710:BL736"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Juillet").Sort
        .SetRange Range("B710:BL736")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A6").Select

    Sheets("Août").Select
    Range("A286").Select

   'Variable Declaration
    Dim OutPut As Integer
    OutPut = MsgBox("        Tri des élèves de toutes les classes effectué", , "Tri alphabétique")

    UserForm1.Show

    Else: Range("A6").Select
    Dim pfff As Integer
    pfff = MsgBox("le tri alphabétique de toutes les classes est annulé", vbCritical, "Annulation")
    End If

End Sub

Bonjour,

(Pfffft, le code.... )

Et si tu modifiais toutes tes plages en tableaux structurés?

Une seule boucle suffirait pour faire un tri sur tous ces tableaux...

Peut-être?

cousinhub

oui j'avoue mais j'avance dans l'encodage avec ce que j'apprends un peu partout sur la toile.

"Et si tu modifiais toutes tes plages en tableaux structurés?

Une seule boucle suffirait pour faire un tri sur tous ces tableaux...

Peut-être?"

tu sais m'expliquer?

merci

Re-,

Avant qu'on commence, peux-tu, spt, éditer ton post initial, et enlever le code (je n'ai qu'un petit écran, c'est un peu ...)

Dans ton cas, si tous tes tableaux sont de même constitution, i-e la première colonne contient les noms, il suffit de boucler sur tous les onglets, puis sur tous les TS (Tableaux Structurés), afin d'y faire les tris (j'avais dit 1 boucle, mais ce sera 2... )

Pour transformer tes tableaux (va falloir le faire à la mano, mais seulement 1 fois), tu cliques dans la première cellule (ici, cellule B7 de l'onglet "Août", pour commencer), et tu fais Insertion/Tableau :

Le format va évoluer, et tu vérifies que le nouveau tableau intègre bien toutes tes données (clique dans la case en haut à gauche pour sélectionner ton nouveau TS)

Une fois que tu auras transformé toutes tes plages de données, en tableaux, tu me donnes le nom de la première cellule (ici, cellule B7), et tu me confirmes que tous les TS ont bien ce même nom en 1ère cellule. (PS, tu peux commencer par 2 ou 3 TS, pour vérifier...)

On verra ensuite pour le code

Bon courage

bonjour,

vous sortez sur quoi exactement pour chaque plage ?

Vous savez nous joindre un fichier avec une feuille comme exemple ?

Je pense que vous avez un record comme longeur de question et la reponse sera peut-être 10-20 lignes ...

bonjour,

je joins le fichier allégé.

il n'y a rien de confidentiel car tout est anonyme, les noms sont des noms inventés.

Merci

Re-,

Bon, j'ai abandonné l'idée de tout transformer en TS.. (tu aurais eu trop de boulot, et ça aurait défiguré tes tableaux, car toutes les colonnes auraient été renommées...)

J'ai par contre utilisé le tableau qui se situe dans l'onglet appelé "Feuil1", qui recense tous tes tableaux, avec leurs adresses (il manque juste la colonne de base, et la ligne de titre)

En balayant toutes les cellules de ce tableau, voici ce qu'on peut faire :

Sub Tri_Pascal()
Dim Cel As Range, PlgBase As Range, PlgTri As Range
Dim Sh
With Application
    .ScreenUpdating = False 'pour ne pas rafraichir en cours
    .Calculation = xlCalculationManual 'pour éviter les calculs pendant le tri - permet la rapidité
End With
With Sheets("Feuil1")
    Set PlgBase = .Range("B3:M22") 'je définis la plage
End With
For Each Cel In PlgBase 'je balaie toutes les cellules
    Sh = Sheets("Feuil1").Cells(2, Cel.Column) 'je détermine l'onglet qui va être trié
    With Sheets(Sh)
        Set PlgTri = .Range(Cel.Value) 'je détermine le tableau "brut"
        Set PlgTri = PlgTri(1).Offset(-1, -1).Resize(PlgTri.Rows.Count + 1, PlgTri.Columns.Count + 1)
                ' je redimensionne le tableau "brut" pour y inclure la 1ère colonne et la ligne de titres
        .Sort.SortFields.Clear 'puis je fais le tri
        .Sort.SortFields.Add2 Key:=PlgTri.Columns(1), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        With .Sort
            .SetRange PlgTri
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
Next Cel 'au suivant
Application.Calculation = xlCalculationAutomatic
End Sub

Par contre, ça va peut-être prendre du temps..

PS, j'espère que toutes les adresses du tableau de base sont correctes

Bon courage

Re cousinhub,

je viens d'essayer ton code,

il n'y a pas de bug mais il ne trie pas.

les données du tableau qui est dans la "Feuil1" donnent des tableaux sur la "Feuil1" et non sur chaque onglet.

Re-,

Bizarre...

Regarde dans l'extrait de ton fichier...

J'ai épuré (enlevé tous les objets)

Les 2 premiers tableaux d'août et septembre sont triés dans l'ordre descendant (Z->A)

Clique sur le bouton GO de l'onglet "Feuil1", et regarde...

cousinhub,

je crois avoir compris pourquoi ça ne fonctionne pas.
j'essaie et je te dirai quoi.

;-)

re,

c'est important que les textes "Nom Prénom" et "Présence" dans la colonne B sont comme çà et ne pas "Nom Prénom " (avec des espaces supplémentaires) comme B6

Sub Sorteren()
     t = Timer

      With Sheets("Août")     'la feuille
          .Range("B1", .Range("B" & Rows.Count).End(xlUp)).Name = "My_B"     'plage nommée
          a = Filter([transpose(if(iserror(my_b),"~",if(my_b="Nom Prénom",row(my_b),if(my_b="Présences",-row(my_b),"~"))))], "~", 0)     'les numéros de lignes avec exactement (!!!!) "Nom Prénom" et "Présence"

          For i = 0 To UBound(a) - 1     'boucle ces numéros
               If a(i) > 0 Then     'numéro des lignes avec "nom prénom" sont positif
                    If a(i + 1) >= 0 Then     'numéro des lignes avec "présence" sont négatif
                         MsgBox "problème lignes " & a(i) & vbTab & a(i + 1)     '---> problème
                    Else
                         Set c = .Range(.Cells(a(i) + 1, "B"), .Cells(-a(i + 1) - 1, "BL"))     'la plage à sorter
                         ptr = ptr + 1     'nombre de palges
                         s = s & vbLf & c.Address     'string pour le msgbox
                         Application.StatusBar = c.Address: DoEvents     'voir le progrès dans le statusbar
                         c.Sort c(1, 1), xlAscending, Header:=xlNo     'sorter la plage alphabetique sur la colonne B
                    End If
               End If
          Next

          Application.StatusBar = ""     'vider statusbar
          MsgBox ptr & " plages sortées en " & Format(Timer - t, "0.0\s") & vbLf & "les plages sortées sont " & s, vbInformation, UCase(.Name)

     End With

End Sub

Bonjour cousinhub,

c'est dans mon fichier d'origine que j'avais une erreur dans le tableau en "Feuil1", mes tableaux prenaient en compte la plage des noms.

Merci à toi

ça fonctionne super bien.

bonjour,

Et le boucle court que j'avais proposé, il fonctionne aussi ou vous ne l'avez pas essayé ?

Il sorte pour le moment seulement A>Z, mais cela est modifiable.