Sub Bttri_Cliquer()
Sheets("Registre").Unprotect "987"
DoEvents
ActiveWorkbook.Worksheets("Registre").ListObjects("Tableau1").Sort.SortFields. _
Add Key:=Range("Tableau1[[#All],[Date de pose]]"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Registre").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("Registre").Protect "987", AllowSorting:=True, AllowFiltering:=True
End Sub