Bonjour a toutes et a tous  
 
Voici mon code :  
 
Do
    If .Range("AJ" & cpt) = "Invalide" Then
        .Range("A" & cpt).EntireRow.Delete Shift:=xlUp
         
 
    End If
    cpt = cpt - 1
Loop Until (cpt = 2)
 
Cette boucle parcours 2620 lignes environ et plante directement
 
Jusqu'a 200 ligne ca marche mais au dessus le programme plante au bout de 5 sec. j'ai parfois un message d'erreur : "memoire insuffisante pour afficher en entier"
 
pourtant cette boucle toute bete marche tres bien si je cache lse lignes
mais des que je les supprime je vois les lignes qui commencent a disparaitrent (1 toutes les 2 sec ...) et puis plantage ...
 
une idee svp ?

salut,
 
désactive l'actualisation de l'écran et réactive la après avec application.screenupdating = false/true

on me fait signe que no meme problème