Bonjour a tous,

je travaille sur une macro qui doit supprimer une ligne sur un certain critere.
Sur le code suivant le critere est 2C07.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For Each MyCell In Range("AB1:AB6000")
        If MyCell = "2C07" Then
            Range("A" & MyCell.Row, "AB" & MyCell.Row).Select
            Selection.Delete Shift:=xlUp
        End If
    Next MyCell
Le probleme vient du fait que si j'ai deux lignes de suite avec 2C07.
En effet, le fait de deleter la premiere ligne 2C07 fait remonter la seconde d'un cran et le test ne s'appliquera pas sur elle et donc elle ne sera pas supprime alors qu'il le faudrait.
Le probleme est que je ne peux pas laisser des lignes blanches donc je ne pense pas pouvoir eviter Shift:=xlUp.

Merci d'avance.