Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim PL As Range 'déclare la variable PL (PLAGE)
LI = Cells(Application.Rows.Count, "E").End(xlUp).Row 'définit la ligne LI (dernière ligne non vide de la colonne E)
Do While LI > 0 'exécute tant que L est supérieure à zéro
If Cells(LI, "E") <> "" Then 'si la cellule ligne LI colonne E n'est pas vide
Set PL = Cells(LI, "E").CurrentRegion 'définit la plage PL
PL.Sort PL(1, 1), xlAscending, Header:=xlNo 'trie la plage PL
End If 'fin de la condition
LI = Cells(LI, "E").End(xlUp).Row - 1...
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim PL As Range 'déclare la variable PL (PLAGE)
LI = Cells(Application.Rows.Count, "E").End(xlUp).Row 'définit la ligne LI (dernière ligne non vide de la colonne E)
Do While LI > 0 'exécute tant que L est supérieure à zéro
If Cells(LI, "E") <> "" Then 'si la cellule ligne LI colonne E n'est pas vide
Set PL = Cells(LI, "E").CurrentRegion 'définit la plage PL
PL.Sort PL(1, 1), xlAscending, Header:=xlNo 'trie la plage PL
End If 'fin de la condition
LI = Cells(LI, "E").End(xlUp).Row - 1 'redéfinit la ligne LI
Loop 'boucle
End Sub