Public Function domaine(strtxt As String) As String
If InStr(1, strtxt, "@") > 0 Then
domaine = Right(strtxt, Len(strtxt) - InStr(1, strtxt, "@"))
Else
domaine = ""
End If
End Function