bonjour a tous,
Je fais appel a vous aujourd'hui car j'ai un petit soucis d'optimisation avec mon code que voici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub supprimerlignemot()
Application.ScreenUpdating = False
Dim I     As Long
Dim Plage As Range
Set Plage = Range("E2:E" & Range("E65536").End(xlUp).Row)
For I = Plage.Cells.Count To 1 Step -1
    If InStr(Plage.Cells(I).Text, "Remplacement") Then
    Plage.Cells(I).EntireRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
Le code ci-dessus permet de regarde sur chaque ligne dans la colonne E si il n'y a pas un mot en particulier dans la cellule et de supprimer la ligne si il est présent.
Le code s’exécute sur la totalité tu tableau et prend pas mal de temps (plusieurs minutes). Est-il possible d’exécuter le code seulement sur la longueur du tableau ?

Merci !