Bonjour le forum,
Je reviens sur ce fil avec une solution VBA :
Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Application.EnableEvents = False
With [Tableau13].ListObject.Range
.Columns(5).Replace """""", "-9^9"
.Sort .Columns(5), xlDescending, Header:=xlYes 'tri...