\documentclass[a4paper]{article}
\usepackage[utf8x]{inputenc}
\usepackage[T1]{fontenc}
%\usepackage[french]{babel} y1 [1]
%\usepackage[babel=true,kerning=true]{microtype} y2 [2]
\usepackage[francais,bloc,completemulti]{automultiplechoice}
\usepackage{csvsimple}
\newcommand{\sujet}{%
\exemplaire{1}{%
%\shorthandon{;} y3 [5]
%%% debut de l’en-tête des copies :
\noindent{\bf QCM \hfill TEST}
\vspace*{.5cm}
\begin{minipage}{.4\linewidth}
\centering\large\bf Histoire et géographie\\ Examen du 01/01/2008
\end{minipage}
\champnom{\fbox{\begin{minipage}{.5\linewidth}
\nom{} \prenom{} :
\vspace*{.5cm}\dotfill
\vspace*{1mm}
\end{minipage}}}
%%% fin de l’en-tête
\begin{center}
\hrule\vspace{2mm}
\bf\Large Géographie
\vspace{1mm}\hrule
\end{center}
\restituegroupe{geographie}
\begin{center}
\hrule\vspace{2mm}
\bf\Large Histoire
\vspace{2mm}\hrule
\end{center}
\restituegroupe{histoire}
\AMCassociation{\id}%association
%\AMCassociation[\nom-\prenom]{\id} y4 [3]
}%fin commande \exemplaire
}%fin commande \newcommand
\begin{document}
%%% préparation des groupes
\setdefaultgroupmode{withreplacement}
\element{geographie}{
\begin{question}{Paris}
Dans quel continent se situe Paris~?
\begin{reponses}
\bonne{L’Europe}
\mauvaise{L’Afrique}
\mauvaise{L’Asie}
\mauvaise{La planète Mars}
\end{reponses}
\end{question}
}
\element{geographie}{
\begin{question}{Cameroun}
Quelle est la capitale du Cameroun~?
\begin{reponses}
\bonne{Yaoundé}
\mauvaise{Douala}
\mauvaise{Abou-Dabi}
\end{reponses}
\end{question}
}
\element{histoire}{
\begin{question}{Marignan}
En quelle année a eu lieu la bataille de Marignan~?
\begin{reponseshoriz}
\bonne{1515}
\mauvaise{1915}
\mauvaise{1519}
\end{reponseshoriz}
\end{question}
}
\element{histoire}{
\begin{questionmult}{Nantes}
Que peut-on dire de l’Édit de Nantes~?
\begin{reponses}
\bonne{Il a été signé en 1598}
\bonne{Il a été définitivement révoqué par Louis XIV}
\mauvaise{Il a été signé par Henri II}
\end{questionmult}
}
%protection par mot de passe
%\AMCstudentslistfile{liste.csv}{id} y5 [4]
%%génération des sujets
\csvreader[head to column names]{liste.csv}{}{\sujet} 
%\shorthandoff{;} y7 [5]
%\csvreader[head to column names,separator=semicolon]{liste.csv}{}{\sujet} y8 [7]
\end{document}