XL 2021 Sélection de mails OutLook pour traitements

[xhudi69]

Bonjour à toutes & tous

j'aimerais sélectionner automatiquement tous les mails d'un même "Sender" et les traiter.
la partie traitement est faite (voir code plus bas), reste la partie sélection pour que l'utilisateur n'est pas à faire cette tâche supplémentaire.
Ce code fait partie d'une interface de gestion des tickets d'incidents et cela m'aiderais fortement.

merci à vous.

Extrait du code pour la partie traitement.

For Each Item In OutApp.ActiveExplorer.Selection
    If InStr(1, Item.Subject, "[Alerting]", vbTextCompare) <> 0 Then
        Sh.Cells(Nvl, 1) = Item.Sender
        Sh.Cells(Nvl, 2) = Replace(Item.Subject, "[Alerting] ", "")
        Sh.Cells(Nvl, 3) = Format(Item.ReceivedTime, "mm/dd/yyyy")
        Sh.Cells(Nvl, 4) = Format(Item.ReceivedTime, "hh:mm")
        Sh.Cells(Nvl, 5) = Item.Body
        Sh.Cells(Nvl, 6) = Format(Item.ReceivedTime, "mm/dd/yyyy  hh:mm")
        'Sh.Cells(Nvl, 4) = Item.Categories
        'Item.SaveAs "C:\temp\" & .Cells(Ligne, 1) & ".msg", olMSG
        Nvl = Nvl + 1
        Item.Delete
    End If
Next Item