bonjour
tu peux mettre ce code
Sub trie()
With Sheets("registre")
.Unprotect ("987")
.ListObjects("Tableau1").Sort.SortFields.Add Key:=Range("Tableau1[[#All],[N° DOSSIER]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .ListObjects("Tableau1").Sort...