Discussion :

[Invité]

y'a t il une possibilité de rendre ce code plus rapide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 Dim DerLigne As Integer
 
 Sheets("Feuil1").Activate
 
   DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
 
 
   For n = DerLigne To 1 Step -1
    If Cells(n, 11).Value = "KO" Then
    Cells(n, 11).EntireRow.Delete
    End If
   Next n