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