Bonjour

apres avoir recherché un bout de programme dans le forum me permettant de supprimer des lignes sous certaines conditions,je me retrouve devant un phenomene de lenteur excessive du sans doute a la formule

Auriez vous une idee pour corriger cela sachant que je traite entre 10 000 et 45 000 lignes et que cela prends enormememnt de temps( plusieurs minutes)


voici le code utilisé

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub nettoyer()
Dim I As Integer
Dim debut1 As String, debut2 As String
For I = 21 To (Range("A65536").End(xlUp).Row - 2)
 
 
 
debut1 = Range("D" & I).Value
 
debut2 = Range("E" & I).Value
 
 
If debut1 < -5.5 Or debut1 > 8.2 Or debut2 < 42 Or debut2 > 51 Then
Rows(I).Delete Shift:=xlUp
End If
Next I
End Sub
merci pour votre aide