Sub LignesSuivis70Trie()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
With Worksheets("Feuil1") 'Nom feuille à adapter au besoin
With .Range("a7:az" & .Range("g65536").End(xlUp).Row)
.Sort key1:=.Item(1, 1), order1:=xlAscending, Header:=xlNo
End With
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub