on savePowerKeys thePK
  toComputer
  put liste("user") into theUser
  set itemDelimiter to tab
  repeat with x = 1 to the number of lines of theUser
    if item 1 of line x of theUser is "powerKeys"
    then put thePK into item 2 of line x of theUser
  end repeat
  writeFile theUser,disk() & ":Fichiers:Listes:user"
end savePowerKeys