Supprimer des lignes différentes d'un coup

Bonjour,

Je travaille sur un gros dossier Excel avec plusieurs onglets avec des listes de contacts. Dans ces contacts, je dois supprimer des mails lignes qui ont des adresses mails fausses.

Sur un autre dossier j'ai la liste des mails faux et j'aurais souhaité savoir s'il il y a avait une méthode rapide pour croiser les deux dossiers pour ne pas perdre de de temps.

Merci pour votre aide.

Bonjour

Oui sans doute par requête, PowerQuery en add on sur ta version 2013 ou MsQuery plus fruste et moins convivial, intégré à toutes les versions.

Il faudrait un exemple anonymisé mais représentatif...

Bonjour

Finalement voici une macro à base de filtre avancé

Bonjour,

C'est parfaitement ce qu'il me faut.

Et dans mes différents onglets, je n'ai pas le même nombre de colonne, est ce que ça fonctionne quand même ?

Re

Ce qui compte c'est surtout le titre de colonne mail dans tous les onglets

mais modifier le code pour la largeur ainsi

Sub Menage()

ThisWorkbook.Worksheets("mail faux").Range("E2").Formula = "=COUNTIF('mail faux'!A:A,mail)>0"

For Each WS In ThisWorkbook.Worksheets

    If WS.Name <> "mail faux" Then
        Fin = Chr(WS.Cells(1, 1).CurrentRegion.Columns.Count + 64)
        WS.Columns("A:" & Fin).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
            Sheets("mail faux").Range("E1:E2"), Unique:=False
        WS.Range("A2:" & Fin & "1000000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
        WS.ShowAllData
    End If
Next

End Sub

Je vous remercie pour votre aide, j'ai réussi à traiter mon dossier en un claquement de doigt grâce à votre aide.