\documentclass[a4paper]{article}

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

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

\newcommand{\AMCcodeA}[1]{
	{
		\def\AMCbeginQuestion##1##2{}\def\AMCbeforeQuestion{}\AMCnoScoreZone
		\AMCquestionNumberfalse
		\setlength{\parindent}{0pt}
		\AMCcodeVspace=.3ex
		\def\AMCbeginAnswer{\hbox\bgroup}
		\def\AMCendAnswer{\egroup\vspace{\AMCcodeVspace}\par}
		\def\AMCanswer##1##2{\hbox to 21pt{\ifAMC@ensemble ##1\else
				\ifAMC@inside@box ##1\else{\AMCboxOutsideLetter{##1}{\textbf{\,##2}}}\fi\fi}
			\hspace{1.3em}
		}
		\AMCnobloc
		\newcount\LDFcol
		\newcount\LDFnum
		\newcount\LDFcolA
		\newcount\LDFlig
		\newcount\LDFligQ
		\newcount\LDFligMax
		\newcount\LDFscore
		\LDFlig=65% point de départ du nom de case : A
		\LDFligQ=0
		\LDFligMax=93% i.e. 2 lignes (65+2*14=93)
		\LDFnum=0
		\loop{
			\LDFscore=1
			\LDFcol=\LDFlig
			\LDFcolA=0
			\advance\LDFlig by 14
			\begin{questionmult}{#1[\the\LDFligQ]}\scoring{formula=}
				\QuestionIndicative\AMCnoCompleteMulti
				\begin{choicescustom}[o]
					\loop
					\ifnum\LDFcol>90
					\advance\LDFnum1
					\wrongchoice[\the\LDFcolA]{\the\LDFnum}\scoring{formula=,b=0,m=\the\LDFscore}
					\else
					\wrongchoice[\the\LDFcolA]{\char\the\LDFcol}\scoring{formula=,b=0,m=\the\LDFscore}
					\fi
					\multiply\LDFscore by 2% double LDFscore
					\advance\LDFcol1
					\advance\LDFcolA1
					\ifnum\LDFcol<\LDFlig\repeat
				\end{choicescustom}
			\end{questionmult}
		}
		\advance\LDFligQ1
		\advance\LDFlig by 14
		\ifnum\LDFlig<\LDFligMax\repeat
		\hspace{-\AMCcodeHspace}
	}
}



\exemplaire{10}{    

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

\AMCcodeA{Etu}
Cochez les trois premières lettres de votre nom et de votre prénom ci-dessus.\par


\vspace{1ex}

%%% 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}