\documentclass[a4paper]{article}

\usepackage[utf8x]{inputenc}
\usepackage[T1]{fontenc}
\usepackage{amssymb,eurosym}
\usepackage{multicol}
\usepackage[francais,bloc,completemulti]{automultiplechoice}

\usepackage{listings} % code R
\lstset{language=R,frame=single,frameround=tttt,xleftmargin=0.5cm,xrightmargin=0.5cm,basicstyle=\small\ttfamily,breaklines=true}

% marges
\geometry{hmargin=2cm,headheight=3cm,headsep=.3cm,footskip=1cm,top=4cm,bottom=3cm}

% questions ouvertes
\AMCopenOpts{lineheight=0.5cm,dots=FALSE,width=\linewidth,scan=FALSE}
\def\AMCotextReserved{\emph{Cadre reservé}}

% surligner avec \hl
\usepackage{xcolor, soul}
\sethlcolor{lightgray}

\begin{document}

\setdefaultgroupmode{withoutreplacement}

\newcommand\questionconfidence[3]{%
  % arguments: id, question, answers bloc
  \begin{question}{#1[C]}
    \QuestionIndicative%
    #2
    \par\hspace*{\fill}\hl{Degr\'e de certitude :}
    \begin{choicescustom}[o]
      \wrongchoice{\hl{0-25\%}}\scoring{1,setglobal.SCOREOK=13,setglobal.SCOREWRONG=4}
      \wrongchoice{\hl{25-50\%}}\scoring{2,setglobal.SCOREOK=16,setglobal.SCOREWRONG=3}
      \correctchoice{\hl{50-70\%}}\scoring{3,setglobal.SCOREOK=17,setglobal.SCOREWRONG=2}
      \wrongchoice{\hl{70-85\%}}\scoring{4,setglobal.SCOREOK=18,setglobal.SCOREWRONG=0}
      \wrongchoice{\hl{85-95\%}}\scoring{5,setglobal.SCOREOK=19,setglobal.SCOREWRONG=-6}
      \correctchoice{\hl{95-100\%}}\scoring{6,setglobal.SCOREOK=20,setglobal.SCOREWRONG=-20}
    \end{choicescustom}
  \end{question}
  {\AMCquestionNumberfalse%
    \def\AMCbeginQuestion##1##2{}%
    \def\AMCbeforeQuestion{}%
    \begin{question}{#1[Q]}%
      \scoring{b=SCOREOK,m=SCOREWRONG,MAX=20}
      %\scoring{formula=((NMC>0)?(SCOREWRONG):((NBC>0)?SCOREOK:0)),MAX=20}
      #3
    \end{question}%
  }%
}

\element{qs}{
  \questionconfidence{Marignan}{
    In which year did the battle of Marignan take place?
  }{
	\begin{multicols}{4}
	\begin{reponses}
      \correctchoice{1515}
      \wrongchoice{1915}
      \wrongchoice{1519}
     \wrongchoice{1525}
 	\end{reponses}
	\end{multicols}
  }
}
\element{qs}{
  \questionconfidence{Cameroun}{
    Which is the capital city of Cameroon?
  }{
	\begin{multicols}{2}
	\begin{reponses}
      \correctchoice{Yaound\'e}
      \wrongchoice{Douala}
      \wrongchoice{Abou-Dabi}
      \wrongchoice{Paris}
  	\end{reponses}
	\end{multicols}
    
  }
}
\element{qs}{
  \questionconfidence{France}{
    Which is the capital city of France?
  }{
    \begin{choices}
      \wrongchoice{Yaound\'e}
      \wrongchoice{Douala}
      \wrongchoice{Abou-Dabi}
      \correctchoice{Paris}
    \end{choices}
    
  }
}
\element{qs}{
  \questionconfidence{Spain}{
    Which is the capital city of Spain?
  }{
    \begin{choices}
      \correctchoice{Madrid}
      \wrongchoice{Douala}
      \wrongchoice{Abou-Dabi}
      \wrongchoice{Paris}
    \end{choices}
    
  }
}
\element{qs}{
  \questionconfidence{Italy}{
    Which is the capital city of Italy?
  }{
    \begin{choices}
      \correctchoice{Rome}
      \wrongchoice{Douala}
      \wrongchoice{Abou-Dabi}
      \wrongchoice{Paris}
    \end{choices}
    
  }
}


\onecopy{10}{

  \begin{center}
    \LARGE\bf Title
  \end{center}

  \insertgroup{qs}

}

\end{document}
