Sub calcul()
Dim Lign As Long
Dim Fom As Worksheet
Set Fom = Sheets("ordre de mérites") 'on détermine la feuille de travail
'Range("alphabétique").Copy Range("délibé") 'on copie les données
'Range("délibec").Sort Key1:=Range("AD11"), Order1:=xlAscending 'premier tri, pour mettre les Aj en fin de liste
With Fom 'sur la feuille de travail
Lign = Application.Match("Aj", .Columns(24), 0) 'on cherche la première ligne "Aj"
.Range("A12:BD" & Lign - 1).Sort Key1:=.Range("L12"), Order1:=xlDescending, Key2:=.Range( _
"I12"), Order2:=xlDescending, Header:=xlNo
'on trie les non-ajournés
.Range("A" & Lign & ":BD" & .[A65000].End(xlUp).Row).Sort Key1:=.Range("L" & Lign), Order1:=xlDescending, _
Key2:=.Range("I" & Lign), Order2:=xlDescending, Header:=xlNo
'on trie les ajournés
End With
End Sub