Bonjour/Bonsoir.

J'ai un problème concernant la suppression de cellules selon une condition.
Les cellules qui contiennent "TEST" sont bien supprimées... SAUF celles où "TEST" est sur plusieurs lignes à la suite (par exemple la ligne 3 et 4, le "TEST" de la ligne 4 passera à la trappe étant donné que c'est devenu la ligne 3 et qu'on est passé à la ligne 4... Hmm )

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Sub supp_test()
            For I = 2 To 15
                If UCase(Cells(I, 1).Value) Like "*TEST*" Then Cells(I, 1).Delete shift:=xlUp
            Next
End Sub
J'ai donc comme solution de lancer la boucle deux fois de suite. De cette façon, je toperais l'ensemble des cellules qui contiennent "TEST" et elles seront supprimées.

Malgré tout, existe-il un moyen de réaliser cette étape dans la même boucle ?


Par avance, merci à vous,
Bonne soirée