Sub tri_RdVs_alpha()
Application.EnableEvents = False
ActiveSheet.Unprotect Password:=""
Range([a6], Cells(Rows.Count, "a").End(xlUp)).RowHeight = 55
With ActiveSheet 'Feuil3 'CodeName
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .Rows("6:" & .Range("a65536").End(xlUp).Row)
If .Row < 6 Then Exit Sub 'sécurité
.Sort .Columns(1), xlAscending, Header:=xlNo
End With
'Ici tu mets un point d'arret tu regardes le temps d'execution
LaSuite
' For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
' If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
' 'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
' Next i
End With
[a3].Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
End Sub
Sub LaSuite()
'ici le reste de ta macro
For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
Next i
End Sub