Bonjour,

Le code suivant est extrêmement lent, y aurait-il des solutions pour l'améliorer?

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 temp()
 
Dim i As Long
 
dernierecel = Sheets("Suivi référents").Range("A" & Rows.Count).End(xlUp).Row
 
    For i = dernierecel To 2 Step -1
 
       If Sheets("Suivi référents").Range("C" & i) <> Sheets("Listes secteurs").Range("C3") Then
       Sheets("Suivi référents").Rows(i).EntireRow.Delete
 
   End If
 
   Next i
 
End Sub
Merci par avance!