Simplification

[moebius]

Bonjour,
Toujours des questions !!! Bon, c'est un peu le principe ici :)
j'ai pas mal de mesures de piano à écrire ; peut-on faire plus simple 
que mon code, passablement fastidieux à entrer   ?

cordialement,

-----------------------------------------------------------------------------------

\version "2.19.81"

\header {

}
cha = \change Staff = "right"
cba = \change Staff = "left"
\paper {
  #(set-paper-size "a4")
}

\layout {
  \context {
    \Voice
    \consists "Melody_engraver"
    \override Stem #'neutral-direction = #'()
  }
}

global = {
  \key as \major
  \numericTimeSignature
  \time 2/4
  \tempo "moderato"
}

right = \relative c'' {
  \global
  % En avant la musique !
  r16 c, ees aes s aes[ s bes] |
  r 16 c, f aes s aes c aes
}

left = \relative c' {
  \global
  % En avant la musique !
  aes,8 aes' \cha \stemDown <c aes'>16[ s bes' s] |
   \cba d,,8 aes' \cha \stemDown aes'16 s4.
}

\score {
  \new PianoStaff \with {
    instrumentName = "Piano"
  } <<
    \new Staff = "right" \with {
      midiInstrument = "acoustic grand"
    } \right
    \new Staff = "left" \with {
      midiInstrument = "acoustic grand"
    } { \clef bass \left }
  >>
  \layout { }
  \midi {
    \tempo 4=70
  }
}