Sub Tri()
Application.ScreenUpdating = False
With [A1].CurrentRegion
.Columns(2).EntireColumn.Insert 'insère une colonne auxiliaire
.Columns(2) = "=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(UPPER(TRIM(RC[1])),""L'"",),""LE "",),""LA "",),""LES "",),""UN "",),""UNE "",),""DES "",)"
.Columns(2) = .Columns(2).Value 'supprime les formules
If InStr(ActiveSheet.DrawingObjects(Application.Caller).Text, "Saga") Then .Sort .Columns(4), xlAscending, .Columns(2), , xlAscending, Header:=xlYes _
Else .Sort .Columns(2), xlAscending, Header:=xlYes
.Columns(2).EntireColumn.Delete 'supprime la colonne auxiliaire
End With
End Sub
Sub RAZ()
[A1].CurrentRegion.Sort [A1], xlAscending, Header:=xlYes
End Sub