tell application "Keynote"
activate
make new slideshow -- create a slide show
set newSlideShow to slideshow 1 -- keep a reference
end tell
tell application "Numbers"
activate
tell document 1
set nombreFeuilles to the count of sheets
end tell
end tell
--display dialog nombreFeuilles
repeat with i from 1 to nombreFeuilles
tell application "Numbers"
activate
tell table 1 of sheet i of document 1 to activate
tell application "System Events" to keystroke "a" using {command down}
tell application "System Events" to keystroke "c" using {command down}
end tell
tell application "Keynote"
activate
set newSlide to make new slide at the end of newSlideShow
tell newSlide
tell application "System Events" to keystroke "v" using {command down}
end tell
end tell
end repeat