Dim derlig As Long
Rows("1:" & [A65536].End(xlUp).Row).Sort Key1:=[A1], Order1:=[COLOR="red"]xlDescending[/COLOR], Header:=xlYes 'tri sur colonne A ([COLOR="Red"]avec titres[/COLOR])
derlig = 1 + Application.CountIf([A2:A65536], "?*")
Rows("1:" & derlig).Sort Key1:=[A1], Order1:=[COLOR="red"]xlAscending[/COLOR], Header:=xlYes