Moulinette pour extraire @ d'un fichier txt

#!/usr/bin/perl
#
use warnings;use strict;

$,="\n";
print map { /\S+?\@[^@\();:,\\]+\.\w{2,4}/g } `cat email.txt`;

__END__

Option Explicit

Sub RechMails()

  Application.ScreenUpdating = False

  Dim Lig     As Long
  Dim Col     As Integer
  Dim FicPath As String
  Dim Cellule As Range
  Dim Ligne   As Long
  Dim EstMail As Variant
  
  FicPath = Application.GetOpenFilename("Text Files (*.txt), *.txt")
  If FicPath = "Faux" Then
    ThisWorkbook.Close
  End If
  
  Workbooks.OpenText Filename:=FicPath, _
                     DataType:=xlDelimited, _
                     Space:=True
  
  ActiveSheet.Name = "Source"
  Lig = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
  Col = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
  
  ActiveWorkbook.Sheets.Add
  ActiveSheet.Name = "Résultat"
  
  Sheets("Source").Activate
  Ligne = 0
  On Error Resume Next
  For Each Cellule In Range(Cells(1, 1), Cells(Lig, Col))
    EstMail = Application.WorksheetFunction.Search("@", Cellule)
    If EstMail <> "" Then
      Ligne = Ligne + 1
      Sheets("Résultat").Cells(Ligne, 1).Value = Cellule.Value
    End If
    EstMail = ""
  Next
  On Error GoTo 0
  Sheets("Résultat").Activate
  Application.DisplayAlerts = False
  Sheets("Source").Delete
  Application.DisplayAlerts = True
  Columns("A:A").AutoFit
  Application.ScreenUpdating = True
  
  ThisWorkbook.Close
    
End Sub

Option Explicit

Private Sub Workbook_Open()
  Call RechMails
End Sub