Sub actualiser()
ActiveSheet.Unprotect
Dim plage As Range
Set plage = ActiveSheet.Range("a3:J" & Range("A" & Rows.Count).End(xlUp).Row)
plage.Sort key1:=Range("A4"), order1:=xlAscending, Header:=xlGuess, ordercustom:=1,_ Orientation:=xlTopToBottom,_
key2:=Range("f4"), order1:=xlAscending, Header:=xlGuess, ordercustom:=2, Orientation:=xlTopToBottom
ThisWorkbook.RefreshAll
ActiveSheet.Protect
End Sub