Suppression de mots identique dans une base

Bonjour !

J'ai cette formule qui me permet de supprimer les ligne contenant un mot identique dans une base de donnée XXXX.

Sub Mac01 ()

Dim i%

For i=256 to 1 step -1

If cells(i,1) = "XXXX" Then Rows(i).delete

Next

End Sub

La formule fonctionne donc sur la première colonne et Je voudrais que la formule puisse aussi fonctionner sur la colonne C.

Merci de vos idées

Bonjour,

Tu n'as qu'a mettre ceci pour regarder sur la 3e colonne au lieu de la 1re colonne.

Sub Mac01 ()
Dim i%
For i=256 to 1 step -1
If cells(i,3) = "XXXX" Then Rows(i).delete
Next
End Sub

Je pensais que c'était plus compliqué que ça !!! Merci à toi.

J'aurais une question supplémentaire !

Je cherche à aller directement à la fin de mon tableau, plus exactement à la dernière cellule comprenant une donnée.

Habituellement je faisais CTRL+Fin, mais c'est pas toujours vrai. Et si le tableau est infini, on se retrouve très loin.

Si quelqu'un à une idée ! Que ce soit sous forme de CTRL++++ ou alors une macro qui me permette de délimiter mon tableau (par exemple la première colonne compte 200 lignes et toutes les dix lignes j'ai une cellule vide...pour faire simple )