Bonjour,
Essaie ainsi pour le tri :
Sub Tri()
Dim rng As Range, LastRow As Long
Application.ScreenUpdating = False
With ActiveSheet
'.Unprotect
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rng = .Cells(2, 1).Resize(LastRow - 1, 6)
End With
rng.Sort Key1:=rng.Cells(2, 6), Order1:=xlAscending, Header:=xlYes
'ActiveSheet.Protect userinterfaceonly:=True
End Sub