Macro d'extraction de ligne suivant valeur d'une cellule

Bonjour a tous,

Je cherche a faire une macro pour extraire (copie) les lignes suivant le contenu de leur cellule en colonne "E".

Exemple si en feuille "Report Past" la celulle en colonne "E" contient "IA" extraction de la ligne en feuille "IA List"

La ligne de titre doit etre reprise dans chaque feuille "IA List" "OV List"...etc.

Pour info je ne peux pas utiliser de macro avec fonction filtre car suivant l'importation en feuille "Report Past" certaines valeurs (IA, OV...) n'existent pas.

Travaillant sur des fichiers de plus de 40000 lignes, un fichier avec des formules avec VLOOKUP est trop lourde.

Fichier test joint

Slts

DRILL

Bonjour à tous,

Sujet résolu sans explications !

on n'a pas été suffisamment rapide ?

Je poste quand même

Sub Extractions()
Dim Lg%, Cel As Range, x
        x = Time
        Application.ScreenUpdating = False
    With Sheets("Report Past")
        Lg = .Range("a65536").End(xlUp).Row + 1
        For Each Cel In Range("TY")                 'voir feuille "Listes" nom féfini
            .Range("n1") = Cel                      'onglet
            .Range("o2") = "=e2=$n$1"               'critère
            .Range("a1:j" & Lg).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
            .Range("o1:o2"), CopyToRange:=Sheets(Cel & " list").Range("a1:j1"), Unique:=False
        Next Cel
            .Range("n1:o2").ClearContents
    End With
        MsgBox ("temps macro = " & Format(Time - x, "hh:mm:ss"))
End Sub

Amicalement

Claude