function ItemsToLines itemList
  toComputer
  if itemList is empty then return "Doit fournir une liste!"
  repeat with x = 1 to the number of items of itemList
    put item x of itemList into line x of lineListe
  end repeat
  return lineListe
end ItemsToLines