Bonjour à tous,

Je rencontre un problème avec le code Excel suivant :

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 Critere_rejet()
 
Dim DerniereLigne As Long
Dim i As Long
DerniereLigne = Range("B" & Rows.Count).End(xlUp).Row 'On cherche le numéro de la dernière ligne
 
For i = 5 To DerniereLigne
  While Cells(i, 12).Value > 0.9
        Cells(i, 12).EntireRow.Delete
    Wend
    Cells(1, 13).Value = (DerniereLigne)
    Cells(1, 12) = i
Next i
 
[L1:M1].ClearContents
 
End Sub
L'idée est de supprimer les lignes pour lesquelles la valeur est supérieur à 0,9. Ce programme fonctione très bien lorque je l'éxécute avec des tableaux qui font 1000 lignes. Dès que je l'utilise avec des tableaux qui font 5 000 ou 10 000 (j'aimerai aller jusqu'à 40 000) cela ne fonctionne pas et Excel me dit : "Erreur d'éxécution '1004' : La méthode Delete de la classe Range a échoué"

J'ai déjà chercher sur internet mais je ne trouve rien de similaire (qui fonctionne pour certaines valeurs et pas d'autres)

Merci d'avance pour votre aide !