With Worksheets("Salariés")
Dim plage As Range
Set plage = Range("a2").CurrentRegion
Set plage = plage.Offset(1, 0).Resize(plage.Rows.Count - 1, plage.Columns.Count)
plage.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
Names("liste_salariés").Delete
Names.Add "liste_salariés", plage
Set plage = Range("a2").CurrentRegion
Set plage = plage.Offset(1, 0).Resize(plage.Rows.Count - 1, 1)
plage.Select
Names("salariés").Delete
Names.Add "salariés", plage
End With