Si vous réitérez par les rangées à l'envers l'ordre et les supprimez du fond vers le haut de vous ne doivent pas s'inquiéter de votre index étant isolé. quelque chose comme le suivant fonctionnerait…
Sous-marin privé CommandButton1_Click ()
Pour I = ActiveCell.SpecialCells (xlLastCell). Rangée à 1 étape -1
Si cellules (I, 3) = « Test1/Test2/Test3 » puis
Rangées (I).Delete
Finir si
Après I
Sous-marin d'extrémité