Bonjour,

j'ai une macro qui fonctionne mais qui prend du temps. Je voudrais savoir si je pouvais la simplifier pour aller plus vite.
La macro a pour but de vérifier si en colonne on a 0, on supprime la ligne.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub efface_zero()
Dim n&, i&
 
n = Cells(420, 2).End(3).Row
For i = n To 1 Step -1
        If Cells(i, 2) = 0 Then Rows(i).Delete
Next i
 
End Sub
Merci de votre aide.