Bonjour à tous
J'ai écrit ce bout de code qui me permet de supprimer les lignes vide ou contenant le terme "Sect" au niveau de la colonne A mai quand je lance elle mouline pendant longtemps avant de réagir .
Comment puis-je l'améliorer pourqu'elle devienne rapide.
Merci pour votre contribution.
J'ai écrit ce bout de code qui me permet de supprimer les lignes vide ou contenant le terme "Sect" au niveau de la colonne A mai quand je lance elle mouline pendant longtemps avant de réagir .
Comment puis-je l'améliorer pourqu'elle devienne rapide.
Merci pour votre contribution.
Code:
Sub SupprimerLignes()
Application.ScreenUpdating = False
Dim F As Worksheet
Dim L As Long
Set F = ActiveSheet
For L = 25000 To 2 Step -1
If F.Cells(L, 1).Value = "" Or F.Cells(L, 1).Value = "Sect" Then
F.Rows(L).Delete
End If
Next L
Application.ScreenUpdating = True
End Sub