Supprimer des lignes selon plage de cellule

Bonjour à toutes et à tous,

Avez-vous une macro de dispo pour supprimer les lignes dans l'onget "fichier" lorsque la valeur de la cellule (colonne A) ne se trouve pas dans la plage B1:B15 de l'onglet "Plage" ?

Par exemple la valeur de la cellule A2 ne se trouve pas dans B1:B15 de l'onglet "plage". ALors on supprimer la ligne 2 de la feuille "Fichier" et ainsi de suite.

Merci d'avance pour votre aide.

Je joins le fichier

Bonjour,

c'est du home-made, je sais pas si il n'y a pas quelques soucis encore à régler, du coup : a tester !

(j'ai déjà lancé la macro avant d'enregistrer, ajoutez des valeurs ou remplacez l'onglet traité par celui de votre fichier)

Bonjour Guittouille,

Merci pour ta macro, j'ai rajouté des données et ça marche bien.

Je vais la mettre sur mon fichier d'originie, je te tiens au courant.

Pour le coup j'ai rajouté 40 000 lignes à traiter + une plus grande plage de données et ça ne marche plus (dépassement de capacité).

Le visual surligne ceci en jaune:

nbcells = Sheets("Fichier").Range("A65536").End(xlUp).Row

Des idées ?

Oui, une érreur de ma part, la variable "nbcells" est en integer ( compris entre -32 768 et 32 767 ) d'ou le dépassement

change le

dim i, nbcells as integer

en

dim i, nbcells as long

je regarde cette aprem si le problème est résolu, bonne ap. !

Ca marche niquel Guittouille.

Un grand merci !

Bon ap et bonne fin de journée !

G.