-------------------------------------------------------------------------------------------tell application "Contacts"
tell group "Famille"
set phoneNumList to value of every phone of every person
end tell
end tell
set tid to text item delimiters
set text item delimiters to {return}
set phoneNumList to (phoneNumList as text)
repeat while phoneNumList contains return & return
set text item delimiters to {return & return}
set phoneNumList to every text item of phoneNumList
set text item delimiters to {return}
set phoneNumList to phoneNumList as text
end repeat
set text item delimiters to tid
if last character of phoneNumList is return then set phoneNumList to text 1 thru -2 of phoneNumList
set phoneNumList to paragraphs of phoneNumList