Remplissage adresse mail

Private Function verifier_syntaxe_mel(mel As String) As Boolean
     Dim reg As Object
     Dim verif As Object

     Set reg = CreateObject("vbscript.regexp")
     reg.Global = False
     'admet les majuscules
     reg.IgnoreCase = True

     reg.Pattern = "^[a-z0-9_.-]+@[a-z0-9.-]{2,}\.[a-z]{2,3}$"
     Set verif = reg.Execute(mel)
     verifier_syntaxe_mel = (verif.Count = 1)

     Set verif = Nothing
     Set reg = Nothing
End Function