Bonjour, j'essaie de supprimer des lignes sélectionnées par un filtre.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
With ActiveSheet
        .Range("AO1").AutoFilter Field:=41, Criteria1:="<>1"
        .Range("AO2:A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        .ShowAllData
    End With
J'obtiens cette erreur sur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.Range("AO2:A" & .Range("A65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Run-time error '1004' :

Microsoft Excel cannot create or use the data range referece
because it is too complex.
J'ai essayé de supprimer les lignes une par une dans une boucle for mais c'est vraiment trop long.

Auriez-vous une autre astuce ?

Merci beaucoup