Bonjour à tous

Je cherche à supprimer des données à l'aide d'un filtre. La base fait 35000 ligne et je filtre sur la colonne J avec le critere "PRIVATE". Cependant j'ai une erreur 1004 "la methode delete de la classe range a échoué.

Pouvez vous m'aider à trouver d'ou vient le problème.

Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub supprime2()
Dim N As Long
Application.ScreenUpdating = False
 
With ThisWorkbook.Sheets("Data")
    .AutoFilterMode = False
    N = .Range("J" & .Rows.Count).End(xlUp).Row
    .Range("J1:J" & N).AutoFilter field:=10, Criteria1:="PRIVATE"
    If .Range("J1:J" & N).SpecialCells(xlCellTypeVisible).Count > 1 Then .Range("J2:J" & N).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilterMode = False
End With
 
End Sub