Une solution très complète m'a été proposée par Jean-Côme Charpentier. Voir ci-dessous (sur la base de l'interro que je lui avais envoyée) :
\documentclass[french,a4paper,9pt]{scrartcl}
\usepackage[applemac]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[light,oldstyle]{kpfonts}
\usepackage{babel}
\usepackage{csquotes}
\FrenchFootnotes
\AddThinSpaceBeforeFootnotes
\usepackage{xspace}
\usepackage{textcomp}
\usepackage{vmargin}
\setmarginsrb{2cm}{2cm}{2cm}{2cm}{0cm}{0cm}{0cm}{0cm}
\usepackage{enumerate}
\usepackage{enumitem}
\usepackage{eurosym}
\usepackage{amssymb} %permet notamment de placer des cases $\square$
\usepackage{siunitx}
\sisetup{locale = FR}
\usepackage[colorlinks=true,urlcolor=blue]{hyperref}
\usepackage[autolanguage,np]{numprint}
\usepackage{threeparttable}
\usepackage{array}
\setmarginsrb{2cm}{2cm}{2cm}{2cm}{0cm}{0cm}{0cm}{0cm}
%%% Questions avec barème %%%
\newdimen\baremecumul
\newdimen\baremecumulpartie
\newcommand*\bareme[1]{%
\global\advance\baremecumulpartie#1pt
\global\advance\baremecumul#1pt
\hfill#1 point\unless\ifdim#1pt<2pts\fi\par
}
\makeatletter
\newcommand\debutpartie{\baremecumulpartie \z@}
%% \num empêche pas mal de chose. choses. En particulier, on n'a plus de chiffre chiffres elzéviriens (bas de casse). Cela me semble bizarre. Si c'est pour avoir la virgule au lieu du point, il y a d'autres solutions plus solides.
%%% Réponse : l'utilisation de SIunitx (avec les options définies ci-dessus)
%%% permet de respecter la fonte d'origine (kpfonts, option oldstyle),
%%% donc les chiffres elzéviriens, etc.
%%\newcommand*\baremepartie{\num{\strip@pt\baremecumulpartie} points}
%%\newcommand*\baremetotal{\num{\strip@pt\baremecumul} points}
\newcommand*\baremepartie{\strip@pt\baremecumulpartie{} points}
\newcommand*\baremetotal{\strip@pt\baremecumul{} points}
\makeatother
%% Voir mail du 29/12/2015
L'utilisation de \section* met la pagaille : substitution de \partie
\newcommand*\partie[1]{%
\section*{#1}
\debutpartie
}
%% Proposition d'amélioration
d'amélioration (j'ai ajouté les cases à cocher, grâce à \amssymb)
\newcommand\VF[2]{%
\item
\begin{minipage}[t]{0.72\linewidth}
\raggedright
#1
\end{minipage}\qquad
$\square$ Vrai\quad $\square$ Faux
\bareme{#2}
}
\title{Les territoires européens}
\date{}
\author{}
\pagestyle{empty}
\begin{document}
\maketitle
\partie{Questions de cours}
\begin{enumerate}
\item Définir les termes suivants, en apportant un exemple si cela peut se faire : \bareme{7}
\begin{center}
\begin{tabular}{c@{ --- }c@{ --- }c@{ --- }c@{ --- }c@{ --- }c@{ --- }c}
Aménagement & Développement & État & Frontière & Intégration territoriale & Région & Territoire \\
\end{tabular}
\end{center}
\medskip
\item Donnez trois arguments montrant la diversité de l'espace
européen. \bareme{3}
\item On parle d'un \frquote{émiettement} de l'Europe : expliquez ce
que c'est. \bareme{2}
\item Rappelez où ont été fixées les limites de l'Europe à l'Est, et
quelle en est la raison principale. \bareme{2}
\item Démontrez pourquoi l'Europe est un espace \frquote{emboîté}
(trois arguments). \bareme{3}
\item Rappelez les trois principales étapes de la construction de
l'Europe communautaire (date et institution mise en
place). \bareme{3}
\item Quels États sont à l'origine de l'Europe communautaire ?
\bareme{3}
\item Quelles sont les trois expressions utilisées pour désigner
l'Europe communautaire à partir de 1957 ? \bareme{3}
\item Qu'est-ce que la PAC ? Son objectif est-il aujourd'hui atteint ?
\bareme{4}
\item Donnez deux exemples de compétences communautaire assez
récentes. \bareme{2}
\item L'Europe communautaire est-elle aujourd'hui un espace très
homogène ? Pourquoi ? \bareme{2}
\item Quel est l'objectif de l'Europe dite de \frquote{Schengen} ?
\bareme{2}
\item Quel événement international a permis à l'Europe communautaire
de gagner de nouveaux membres ? \bareme{1}
\item À quelle partie de l'Europe appartiennent-ils, pour l'essentiel
(donnez deux exemples des États concernés). \bareme{2}
\item Quels sont les deux États qui intègrent l'Europe communautaire à
partir de ce moment-là, mais qui n'appartiennent pas à cette partie
de l'Europe ? \bareme{2}
\item Cochez les propositions qui vous paraissent exactes ; cherchez à
les justifier.
\begin{enumerate}[label=\alph*.]%{$\square$}{}
\VF{Tous les pays de l'Union européenne ont adopté l'euro.}{1}
\VF{Trente États appartiennent aujourd'hui à l'Europe
communautaire.}{1}
\VF{L'Union européenne peut prendre des décisions en matière
agricoles qui s'imposent à tous les États-membres.}{0,5}
\VF{Tous les pays de l'Union européenne font partie de l'espace de
Schengen.}{1}
\VF{La Turquie fait partie des pays qui veulent entrer dans
l'espace communautaire.}{1}
\VF{Le Vatican fait partie de l'UE et utilise l'euro.}{1}
\VF{Certains diplômes sont reconnus dans l'ensemble de l'Union
européenne.}{0,5}
\VF{L'Islande fait partie de l'Union européenne.}{1}
\VF{L'Union européenne comprend aujourd'hui vingt-huit
membres.}{0,5}
\VF{Le siège de la Banque centrale européenne est à
Luxembourg.}{1}
\VF{Les commissions européennes siègent à Bruxelles.}{0,5}
\VF{L'Europe est aujourd'hui l'un des principaux pôles économiques
du monde.}{1}
\end{enumerate}
\end{enumerate}
\bigskip
\begin{center}
\textbf{
% \phantom{1cm}~points sur \baremetotal}
\makebox[1cm]{\dotfill}~points sur \baremetotal
}
\end{center}
\newpage
\partie{Sujet d'étude. Une région en Europe : le Bade-Wurtemberg}
\begin{center}
\begin{threeparttable}
\begin{tabular}{l | S[table-format=8.1] | S[table-format=7.1]}
& {Bade-Wurtemberg} & {Nord-Pas-de-Calais-Picardie}
\\\hline
Population (hb) & 10631278 & 5985719
\\
Superficie (\si{\km\squared}) & 35751 & 31721
\\
Densité (hb/\si{\km\squared}) & 297,4 & 188,7
\\
PIB global (en millions d'euros) & 420819 & 1533990
\\
PIB/hb (\euro) & 39583,1 & 25627,5
\\
PIB national (en millions d'euros) & 2809480 & 2113687
\\
Part dans la richesse nationale (\%) & 15 & 7,3
\\
Taux de chômage (\%) & 4,5 & 12,5
\\
R\&D\tnote{1} \hspace*{1pt} par rapport au PIB régional (\%) & 5,1 & 1
\\
R\&D par rapport au PIB national (\%) & 3 & 2,2
\\
Valeur des exportations par habitant (\euro) & 16282,1 & 7902,1
\\\hline
\end{tabular}
\begin{tablenotes}
\footnotesize
\item[1] R\&D : dépenses consacrées à la recherche et au
développement (c'est-à-dire la valorisation industrielle d'une
innovation).
\end{tablenotes}
\end{threeparttable}
\end{center}
{\small Sources :}
\begin{enumerate}
\footnotesize \item
INSEE, \emph{Panorama des nouvelles régions françaises - Nord~-~Pas-de-Calais~Picardie}. \\
\url{http://www.insee.fr/fr/themes/document.asp?ref_id=FST15_F1_10_Nord-Pas}
;
\item Eurostat ;
\item CCI Grand-Lille. \emph{Les chiffres-clés de la future région Nord-Pas de Calais -- Picardie}. \\
\url{http://www.tresor.economie.gouv.fr/7745_fiche-signaletique-du-land-de-bade-wurtemberg}.
\end{enumerate}
\bigskip
\frquote{ \emph{Si le \emph{Land} de Bade-Wurtemberg était un État et
une économie autonomes, il serait champion du monde}. Voilà
comment cette région se présente dans une plaquette destinée aux
investisseurs, rappelant qu'en valeur des exportations par habitant
(plus de \np{10000} \euro\footnote{Attention à la date du texte :
les données chiffrées sont à actualiser avec celles du tableau.})
elle surclasse le Japon et les USA. Mais la fierté n'est pas dénuée
d'humour. La présentation se poursuit ainsi : \emph{Mais nous
n'oserions jamais le proclamer haut et fort}. Un clin d'œil à
l'image d'une tranquille et riche province de \frquote{fourmis}
économes, travailleuses et inventives dont est doté ce \emph{Land}
industriel et high tech qui rivalise de compétitivité avec la
Bavière voisine. Et qui se plaît à rappeler que, s'il n'est que la
troisième économie de la République fédérale en termes de PIB, il
n'en surclasse pas moins l'Autriche, la Suède ou le Danemark au sein
de l'UE. Surtout, le \emph{Land} est la région la plus innovante
d'Europe, loin devant l'Île-de-France et la Bavière en ce qui
concerne la part du PIB consacrée à la R\&D (près de 4\,\%) ou le
nombre de brevets par habitants (130 contre 115 pour la
Bavière). [\dots]
Le Bade-Wurtemberg préfère une politique de compétitivité plus
discrète, construite sur deux axes : la promotion de la culture
industrieuse régionale grâce à un intense effort de formation
professionnelle et de soutien aux activités de transfert de
technologies et de savoirs, surtout dans les PME ; l'aménagement
d'un cadre favorable au développement des pôles de compétitivité qui
ont émergé au fil du temps sur les piliers de l'industrie régionale
(et allemande) : automobile, construction mécanique, TIC,
biotechnologies et chimie}.
\begin{flushright}
\footnotesize Isabelle \textsc{Bourgeois}, \frquote{Bade-Wurtemberg
: une compétitivité à taille humaine}, \emph{Regards sur
l'économie allemande}, \no{74},~2005, p. 17 à 28
\end{flushright}
\subsubsection*{Questions}
\begin{enumerate}
\item Présentez les deux documents : nature précise, date. \bareme{2}
\item Caractériser le \emph{Land} du Bade-Wurtemberg, par rapport au
Nord-Pas-de-Calais-Picardie, en considérant les éléments
démographiques, la richesse produite annuellement, et le
chômage.\bareme{3}
\item Que pouvez-vous dire des exportations de ce \emph{Land}, par
rapport à celles du Nord-Pas-de-Calais-Picardie, mais aussi par
rapport à l'ensemble de l'Allemagne et de la France ? \bareme{2}
\item D'après le tableau et d'après le texte, sur quoi repose la force
de l'économie du Bade-Wurtemberg ? \bareme{2}
\item Comment cela se traduit-il pour la population (emploi, richesse,
etc.) ?\bareme{2}
\item Rappelez ce que mesure la R\&D. Que cherche-t-on à obtenir quand
on renforce la R\&D ?\bareme{2}
\item Quelle activité économique et quelle marque précise
symboliseraient la puissance économique du \emph{Land} ?\bareme{2 }
\item Vous êtes président de la région Nord-Pas-de-Calais-Picardie (si
!), et vous avez tous les pouvoirs pour définir la politique
économique et sociale pour rattraper le retard sur le
Bade-Wurtemberg : quelles sont les trois principales décisions à
prendre, et quels effets en attendez-vous ? \bareme{3}
\end{enumerate}
\bigskip
\bigskip
\thispagestyle{empty}
\begin{center}
\textbf{
% \phantom{1cm}~points sur \baremepartie}
\makebox[1cm]{\dotfill}~points sur \baremepartie}
\end{center}
\bigskip
% \begin{center}
% \textbf{
% \huge{
% {\setlength{\mathsurround}{20pt}
% $ \phantom{1cm}~\times~\frac{20}{\baremetotal}~=~\phantom{1cm}~/20 $
% }
% }
% }
% \end{center}
\newcommand\Grand[1]{\hbox{\huge\bfseries #1}}
\[ \Grand{\makebox[1cm]{\dotfill} $\times$ }
\displaystyle\frac{\Grand{20}}{\Grand{\baremetotal}} \Grand{$=$
\makebox[1cm]{\dotfill} / 20}\]
\thispagestyle{empty}
\end{document}