macro qui rame énormément

[meldja]

Bonjour,
Je viens de lancer une macro censé effacer lignes si la cellule en colonne C est vide.
Voici le code :

Private Sub CommandButton1_Click()
Dim i As Integer
Dim der As Integer
der = Range("C65536").End(xlUp).Row

For i = der To 2 Step -1
If Range("C" & i) = 0 Then
Rows(i).Delete
End If
Next i
End Sub

Ca rame à un tel point que j'ai dû arrêter l'exécution de cette dernière.
Il faut dire que je l'ai exécuté sur un fichier contenant 2015 lignes et 2 cellules sur 6 sont vides en colonne C (donc 2 lignes sur 6 doivent être supprimées).

Est-ce que c'est uniquement dû à la taille du fichier ou la macro laisse à désirer ?
Pour info, j'ai testé ce code sur une centaine de lignes et ça ne prend que quelques secondes à peine.

Merci d'avance et bonne journée

 

[meldja]

Re : macro qui rame énormément

Re,
vbacrumble :
je suis trop décalé par rapport à vous (connexion analogique entre 10 et 20k/b sec). A peine je te réponds qu'il faut que j'attende entre 5 et 10 mn pour consulter le topik. Ca crée un gros décalage.
Tout ceci pour te remercier dans un premier temps de m'apporter des solutions, et dans un deuxième temps, pour te dire que je vais tester ta solution demain au boulot avec le fichier qui pose problème (parce qu'il n'y a aucun problème avec les fichiers tests que je fais chez moi).
Merci et bonne soirée.