Bonjour,
Je partage la solution que j'ai trouvé : protéger la feuille en empêchant le tri. Simple et efficace :
Sheets("TEST").Protect Password:="1234", _
DrawingObjects:=False, _
Contents:=True, _
Scenarios:=False, _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=True, _
AllowInsertingRows:=True, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=True, _
AllowDeletingRows:=True, _
AllowSorting:=False, _
AllowFiltering:=True, _
AllowUsingPivotTables:=False
@+
Alci