Sub LignesSuivis70Trie()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
Sheets("SuivisAppels").Select
ActiveSheet.Unprotect Password:=""
Rows("7:50000").Hidden = False
Range("X1").Select
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(""à traiter"","" "",R5C32-R5C35)"
Range("V1").Select
ActiveCell.FormulaR1C1 = "=R5C35"
With Worksheets("SuivisAppels") 'Nom feuille à adapter au besoin
With .Range("a7:az" & .Range("t65536").End(xlUp).Row)
.Sort key1:=.Cells(1, 20), order1:=xlAscending, Header:=xlNo
End With
End With
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
Call Remonte
End Sub