Private Sub Tri_agrements()
' Tri les numeros agrements
Application.ScreenUpdating = False
With WS
Set WS = ThisWorkbook.Worksheets("Feuil1")
xlgn = WS.Range("B" & Rows.Count).End(xlUp).Row
Set rng = WS.Range("B3:G" & xlgn)
rng.Sort Key1:=Range("B3"), Order1:=xlAscending
End With
Set WS = ThisWorkbook.Worksheets("Feuil3")
xlgn = WS.Range("B" & Rows.Count).End(xlUp).Row
Set rng = WS.Range("B3:G" & xlgn)
rng.Sort Key1:=Range("B3"), Order1:=xlAscending
Application.ScreenUpdating = True
End Sub