\ProvidesPackage{onglet}[1996/07/25 B. Bayart]
\RequirePackage{everyshi}

\newcounter{maxchapter}
\newcounter{tmpa}
\newlength{\basehauteur}
\setlength{\basehauteur}{1cm}
\newlength{\ajoutdroite}
\newlength{\htcclv}
\def\concatener{%
  \setlength{\ajoutdroite}{\textheight}
  \divide\ajoutdroite by \basehauteur
  \setcounter{maxchapter}{\number\ajoutdroite}
  \setcounter{tmpa}{\value{chapter}}
  \addtocounter{tmpa}{-1}
  \divide\value{tmpa} by\value{maxchapter}
  \multiply\value{tmpa} by\value{maxchapter}
  \advance\value{tmpa} by -\value{chapter}
  \addtocounter{tmpa}{-1}
  \setlength{\ajoutdroite}{\paperwidth}
  \setlength{\htcclv}{\ht255}
  \addtolength{\ajoutdroite}{-\wd255}
  \addtolength{\ajoutdroite}{-1in}
  \addtolength{\ajoutdroite}{-1.5cm}
  \setbox255=\vbox{\hbox to \wd255{%
    \box255%\relax
    \rlap{\vbox to \htcclv{%
      \vskip-\value{tmpa}\basehauteur
      \hbox{%
        \hskip\ajoutdroite\relax
        \usebox{\laboite}%
      }%
      \vfill
    }}%
  \hfill}}%
}
\newsavebox{\laboite}
\def\faireboite{\sbox{\laboite}%
{\hbox to 1.5cm{\let\protect\relax
\huge\thechapter\hfill\vrule height 1em depth 0pt width 5mm}}}

\AtBeginDocument{\EveryShipout{\faireboite\concatener}}