Tableau et incrémentation de ligne

onjour,

Je souhetairai ecrire un programme qui lit la premiere cellule d'une ligne d'un tableau , et qui supprime l'entiereté de la ligne si la cellule est differente d'une certaine valeur

J ' ai trouvé deux solutions qui ne marchent pas

la premiere s'applique à un petit tableau et je souhetairai traiter un tableau de 10 000 lignes ,

la deuxieme me donne une boucle infinie

voici les deux codes :

sub macro 1()

Dim i as integer

dim j as integer

for i=1 to 10000

for j= i to 10000

if cells(i, 1) <> "1" Then

Rows(i).Select

Application:CutCopyMode =False

Selection.Delete

End if

next i

next j

end sub

deuxieme macro

for i = 1 to 10 000

Do while cells (i, 1) <> "1"

Rows(i).Select

Application:CutCopyMode =False

Selection.Delete

loop

next i

end sub

Merci pour votre aide

Bonjour à tous !

Et...

Pour recevoir une aide appropriée, il convient d'indiquer, dans votre profil, la version Excel utilisée ainsi que son éventuel environnement MAC.

Par ailleurs, fournir un fichier exemple, anonymisé, fidèle à votre réalité est une bonne pratique.....

Si vous tenez absolument à passer par une solution VBA, il existe moult spécialistes ici (je n'en suis pas).

Votre besoin peut être traité via un simple filtre (?) ou avec Power Query.