Re-Bonjour
Après plusieurs test sur ton code, j'avais la même erreur. Et je me suis aperçu que tu avais oublié de mettre le Ws lors du delete alors que jfontaine l'avais mis sur son premier code.
If Ws.Cells(i, 1).Value = "ztzet" Or Ws.Cells(i, 1).Value = "plp" Or Ws.Cells(i, 1).Value = "ztzt" Or Ws.Cells(i, 1).Value = "tee" Or Ws.Cells(i, 1).Value = "taez" Or Ws.Cells(i, 1).Value = "TATA" Or Ws.Cells(i, 1).Value = "tata" Or Ws.Cells(i, 1).Value = "titio" Or Ws.Cells(i, 1).Value = "totoS" Then Ws.Rows(i).Delete
EDIT: jfontaine a trouvé avant moi et en plus il propose une amélioration avec un Case ![:cry:](https://www.developpez.net/forums/images/smilies/icon_cry.gif)
![:cry:](https://www.developpez.net/forums/images/smilies/icon_cry.gif)
Pauvre de moi!
Partager