Microsoft 365 Contrôler le format d'une adresse mail

Function IsValidEmail(sEmailAddress As String) As Boolean
    'Code from Officetricks
    'Define variables
    Dim sEmailPattern As String
    Dim oRegEx As Object
    Dim bReturn As Boolean
   
    'Use the below regular expressions
    sEmailPattern = "^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,3})+$" 'or
    sEmailPattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$"
   
    'Create Regular Expression Object
    Set oRegEx = CreateObject("VBScript.RegExp")
    oRegEx.Global = True
    oRegEx.IgnoreCase = True
    oRegEx.Pattern = sEmailPattern
    bReturn = False
   
    'Check if Email match regex pattern
    If oRegEx.Test(sEmailAddress) Then
        'Debug.Print "Valid Email ('" & sEmailAddress & "')"
        bReturn = True
    Else
        'Debug.Print "Invalid Email('" & sEmailAddress & "')"
        bReturn = False
    End If

    'Return validation result
    IsValidEmail = bReturn
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
  ' Vérifier si saisie d'une adresse mail dans la colonne H
  If Not Intersect(Range("H:H"), Target) Is Nothing Then
    If IsValidEmail(Target.Value) = False Then
      Application.EnableEvents = False
      Target.ClearContents
      Application.EnableEvents = True
      MsgBox "Merci de saisir une adresse mail valide SVP", vbCritical, "OUPS..."
    End If
  End If
End Sub

=REGEX.TEST(H2:H9;"^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$")

=REGEX.TEST(H2:H10;"^([\w_\-\.]+)@[\w\-]+(\.[\w\-]+)*(\.[a-z]{2,64})$")