\documentclass[a4paper]{article}

\usepackage[utf8x]{inputenc}    
\usepackage[T1]{fontenc}

\usepackage[francais,bloc,completemulti]{automultiplechoice}    
\begin{document}



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Codage "A"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\newlength\LDFtemp
\newlength\AMCcodeAspace
\setlength{\AMCcodeAspace}{2\AMCcodeHspace}%\advance\AMCcodeAspace\AMCcodeAspace
\makeatletter
\newcommand{\AMCcodeA}[2]{% #1 : name for the "question" e.g. etu ; #2 : unused, just to ease AMCcodeA substitution to \AMCcode or AMCcodeH
	{\def\AMCbeginQuestion##1##2{}%
		\setlength{\parindent}{0pt}%
		\def\AMCbeginAnswer{}
		\def\AMCendAnswer{\vspace{\AMCcodeVspace}\par}%
		\def\AMCanswer##1##2{##1\ifAMC@ensemble\else%
			\ifAMC@inside@box\else\hspace{\AMCcodeBoxSep}\textbf{##2}\settowidth{\LDFtemp}{\textbf{##2}}\hspace{-\LDFtemp}\fi\fi%
			%   \ifAMC@inside@box\else\hspace{\AMCcodeBoxSep}\smash{\textbf{##2}}\fi\fi%
			\hspace{\AMCcodeAspace}}%
		\def\AMCchoiceLabelFormat##1{\hspace{-0.3em}\CheckBox[checkboxsymbol=n,checked=false,name=irakasle\theCheckBoxCounter,width=1em,height=1em]{}{##1}\stepcounter{CheckBoxCounter}}%
		\AMCnobloc%
		\AMC@chiffres=#2%
		\newcount\LDFcol
		\newcount\LDFcolA
		\newcount\LDFlig
		\newcount\LDFligQ
		\newcount\LDFligMax
		\newcount\LDFscore
		\LDFlig=65% point de départ du nom de case : A
		\LDFligQ=0
		\LDFligMax=101% i.e. 6 lignes (65+6*6=101)
		\loop%
		{\begin{questionmult}{#1[\the\LDFligQ]}\QuestionIndicative\AMCnoCompleteMulti%
				\begin{choicescustom}[o]
					\LDFcol=\LDFlig
					\LDFcolA=0
					\advance\LDFlig by 6 %6 taille du carré
					\LDFscore=1% redémarrage à chaque ligne
					\loop%
					\wrongchoice[\the\LDFcolA]{\ifnum\LDFcol>9\char\else\fi\the\LDFcol}\scoring{b=0,m=\the\LDFscore}
					%	     \wwos[\the\LDFcolA]{\ifnum\LDFcol>9\char\else\fi\the\LDFcol}{b=0,m=\the\LDFscore}
					\advance\LDFscore\LDFscore% double LDFscore
					\advance\LDFcol1% incremente LDFcol de 1
					\advance\LDFcolA1% incremente LDFcolA de 1
					\ifnum\LDFcol<91\else\LDFcol=0\LDFlig=4\fi% si LDFcol dépasse Z, on continue avec 0
					\ifnum\LDFcol<\LDFlig\repeat
				\end{choicescustom}%
			\end{questionmult}}%
			\advance\LDFligQ by 1
			\ifnum\LDFlig>9\advance\LDFlig by 6\multiply\LDFscore by 64%
			\else\advance\LDFlig by 6\advance\LDFscore by 1\fi
			\ifnum\LDFlig<95\else\LDFlig=4\LDFscore=5\LDFligMax=10\fi
			\ifnum\LDFlig<\LDFligMax\repeat%
			\vspace{-\AMCcodeVspace}%
			\def\AMCchoiceLabelFormat##1{##1}%
		}}
		\makeatother












\exemplaire{10}{    

%%% debut de l'en-tête des copies :    

%\noindent{\bf QCM  \hfill TEST}
%
%\vspace*{.5cm}
%\begin{minipage}{.4\linewidth}
%\centering\large\bf Test\\ Examen du 01/01/2008\end{minipage}
%\champnom{\fbox{    
%                \begin{minipage}{.5\linewidth}
%                  Nom et prénom :
%
%                  \vspace*{.5cm}\dotfill
%                  \vspace*{1mm}
%                \end{minipage}
%         }}
%
%\begin{center}\em
%Durée : 10 minutes.
%
%  Aucun document n'est autorisé.
%  L'usage de la calculatrice est interdit.
%
%  Les questions faisant apparaître le symbole \multiSymbole{} peuvent
%  présenter zéro, une ou plusieurs bonnes réponses. Les autres ont
%  une unique bonne réponse.
%
%  Des points négatifs pourront être affectés à de \emph{très
%    mauvaises} réponses.
%\end{center}
%\vspace{1ex}

%%%

{\setlength{\parindent}{0pt}\hspace*{\fill}\AMCcodeA{etu}{8}\hspace*{\fill}
	\begin{minipage}[b]{6.5cm}
		$\longleftarrow{}$\hspace{0pt plus 1cm} codez votre numéro d'étu\-diant ci-contre,
		et inscrivez votre nom et prénom ci-dessous.
		
		\vspace{3ex}
		
		\hfill\champnom{\fbox{    
				\begin{minipage}{.9\linewidth}
					Nom et prénom :
					
					\vspace*{.5cm}\dotfill
					
					\vspace*{.5cm}\dotfill
					\vspace*{1mm}
				\end{minipage}
			}}\hfill\vspace{5ex}\end{minipage}\hspace*{\fill}
		
	}

%%% fin de l'en-tête

\begin{question}{prez}    
  Parmi les personnalités suivantes, laquelle a été présidente
  de la république française~?
  \begin{reponses}
    \bonne{René Coty}
    \mauvaise{Alain Prost}
    \mauvaise{Marcel Proust}
    \mauvaise{Claude Monet}
  \end{reponses}
\end{question}

\begin{questionmult}{pref}    
  Parmi les villes suivantes, lesquelles sont des préfectures~?
  \begin{reponses}
    \bonne{Poitiers}
    \mauvaise{Sainte-Menehould}
    \bonne{Avignon}
  \end{reponses}
\end{questionmult}

% \AMCaddpagesto{3} 

}   

\end{document}
