% Author     : Christophe Poulain
% licence    : Released under the LaTeX Project Public License v1.3c
% or later, see http://www.latex-project.org/lppl.txtf
\NeedsTeXFormat{LaTeX2e}%
\def\filedate{2024/11/03}%
\let\PfMfiledate\filedate%
\def\fileversion{0.99-k}%
\let\PfMfileversion\fileversion%

\ProvidesPackage{ProfMaquette}[\filedate\space v\fileversion\space Maquettage de documents]%

\newif\if@Dyslexie \@Dyslexiefalse
\newif\if@CAN \@CANfalse
\newif\if@Revision \@Revisionfalse
\newif\if@AssembleCorrections \@AssembleCorrectionsfalse
\newif\if@Personnel \@Personnelfalse

\DeclareOption{Dyslexie}{\@Dyslexietrue}
\DeclareOption{CAN}{\@CANtrue}
\DeclareOption{Revision}{\@Revisiontrue}
\DeclareOption{AssembleCorrections}{\@AssembleCorrectionstrue}
\DeclareOption{Personnel}{\@Personneltrue}
\ProcessOptions\relax

\if@AssembleCorrections
  \AddToHook{env/document/end}[AC]{\PfMAffichageTousCorriges}%
\fi

% packages nécessaires
\RequirePackage{verbatim}%
\RequirePackage{xintexpr}
\RequirePackage{calc}%

\RequirePackage{xlop}%

\RequirePackage{varwidth}%

\RequirePackage{tcolorbox}%
\tcbuselibrary{breakable,external,fitting,hooks,magazine,poster,raster,skins,theorems,listings,listingsutf8}%

\RequirePackage{xinttools}%

\RequirePackage{listofitems}%
\RequirePackage{array}%
\RequirePackage{datatool}%

\RequirePackage{modulus}%

\RequirePackage{ragged2e}%
\RequirePackage{fontawesome5}
\makeatletter
\gdef\PfMFontSize{\@ptsize}
%\gdef\PfMFontSize{\f@size}
\makeatother
%définition des clés
\RequirePackage{simplekv}%
\setKVdefault[Boulot]{BigTen=false,JeuPuzzle=false,QCM=false,PixelArt=false,AMC=false,IntroductionAMC=false,Graine=1,Dys=false,Taille=14,Cours=false,Base=false,BaseHTML=false,CAN=false,Fiche=false,DM=false,DS=false,IE=false,Kholle=false,RecapBrevet=false,PdT=false,Parcours=false,Contrat=false,FdR=false,ParcoursPerso=false,OlympiadesAPMEP=false,LivreHeros=false,CorrigeInverse=false,CorrigeSeul=false,CorrigeApres=false,CorrigeFin=false,CorrigeAll=false,Brevet=false,BaremeComplet=false,BaremeGlobal=false,CorrectionColonnes=false,EntrainementColonnes=false,Epaisseur=0pt,EEpaisseur=0pt,ESansSaut=false,VersSolution=false,AvecEntrainement=false,Small=false,Footnotesize=false,Scriptsize=false,AllDirect=false,AllPouce=false,Input=false}%
\defKV[Boulot]{Colonnes=\setKV[Boulot]{CorrectionColonnes}}%
\defKV[Boulot]{EColonnes=\setKV[Boulot]{EntrainementColonnes}}%
\setKVdefault[QCM]{Colonnes,NomExercice=Question,Introduction=false,Theme={},Niveau={},Classe={},Date={}}%
\setKVdefault[BigTen]{CoupureTableau=false,LargeurTab=40pt}%
\defKV[BigTen]{CoupeTableau=\setKV[BigTen]{CoupureTableau}}%
\setKVdefault[PixelArt]{Aleatoire=false,Landscape=false,CoupureTableau=false,Fichier={},Lettres={},Largeur={},Hauteur={},ListeCouleurs={},Solution=false,Theme=Essai,Arcenciel=false,LargeurTab=40pt,Diversion=false}%
\defKV[PixelArt]{CoupeTableau=\setKV[PixelArt]{CoupureTableau}}%
\defKV[PixelArt]{Intrus=\setKV[PixelArt]{Diversion}\setsepchar{,}\ignoreemptyitems\readlist*\PfMListePourLesIntrus{#1}\reademptyitems}
\setKVdefault[AMC]{Date=\today,Classe={},Niveau={},Code=\jobname,NomExercice=Exercice,Theme=Numération,Calculatrice=false}%
\setKVdefault[Cours]{Couleur=Crimson,Theme=Trace \'ecrite,NomExercice=Exercice}%
\setKVdefault[DM]{Numero=1,Date=\today,Classe={},Niveau=3,Code=\jobname}%
\setKVdefault[DS]{Numero=1,Date=\today,Classe={},Niveau=3,Code=\jobname,Calculatrice=false,Sujet=A}%
\setKVdefault[Beamer]{Theme=Les nombres d\'ecimaux,SousTheme={},Date=\today,Niveau=6,Classe={},Code={},NomExercice=Exercice,}%
\setKVdefault[Fiche]{Theme=Les nombres d\'ecimaux,Date=\today,Niveau=6,Classe={},Code={},NomExercice=Exercice}%
\setKVdefault[PdT]{Theme=Les nombres d\'ecimaux,Date=\today,Niveau=6,Classe={},Code={},NomExercice=Exercice}%
\setKVdefault[FdR]{Theme=Les nombres d\'ecimaux,Date=\today,Niveau=6,Classe={},Code={},NomExercice=Exercice}%
\setKVdefault[Parcours]{Theme=Les nombres d\'ecimaux,Date=\today,Niveau=6,Classe={},Code={},NomExercice=Exercice,Vertical=false,Plan=false,Court=false}%
\setKVdefault[Contrat]{Theme=Les nombres d\'ecimaux,Date=\today,Niveau=6,Classe={},Code={},NomExercice=Exercice}%
\setKVdefault[OlympiadesAPMEP]{Theme=Les nombres d\'ecimaux,Bandeau=false}%
\setKVdefault[ParcoursPerso]{Fichier={},RectoVerso=false}%
\setKVdefault[IE]{Nom=\'Evaluation,Sujets=false,Theme={},Numero=1,Date=\today,Classe={},Niveau=3,Code=\jobname,Calculatrice=false}%
\defKV[IE]{Sujet=\setKV[IE]{Sujets}}%
\setKVdefault[RecapBrevet]{Theme=Les nombres d\'ecimaux,Date=\today,Code={},NomExercice=Exercice}%
\setKVdefault[Kholle]{Sujet=1,Numero=1,Date=15,Niveau=TSI-1,Code=\jobname,Lieu=Lyc\'ee
  du Hainaut (Valenciennes),NomEleve=Albert Einstein,CR=false}%
\setKVdefault[CAN]{Date=\today,Niveau=6,Duree=9,CoefQ=0.4,CoefR=0.35,CoefJ=0.1,Logos=false}%
\defKV[CAN]{Logo=\setKV[CAN]{Logos}}%
\setKVdefault[ClesExercices]{Open,NbQuestions=1,PasTitre=false,AffichageSource=false,BaremeTotal,BaremeDetaille=false,MotPoint=point,AffichageTitre=false,Calculatrice=true,Oral=false,Difficulte=0,AffichageCompetence=false,PasCorrige=false,Direct=false,Pouce=false,Parcours=false,Contrat=false,FdR=false,Routes=false,Stops=false,Background=white,Cadre=gray!50,Numerote,Ligne=false,Doublespacing=false,Onehalfspacing=false,Cadres=false,Grilles=false,Cinq=false,Huit=false,TitreSol=false,NonUtilise=false,Profile=false,AEntretenir=false,Fragile=false,AvecIndications=false,ACompleter=false,Aide=0,Score=0,EchelleSeyes=8,Ajout={},TitreCorrige=Corrigé de l'exercice,Interieur=false,NombreEleves=0,Categorie=0}%
%\defKV[ClesExercices]{AMCReponses=\ifboolKV[Boulot]{AMC}{\setKV[ClesExercices]{Open=false}}{}}%
\defKV[ClesExercices]{TitreSolution=\setKV[ClesExercices]{TitreSol}}%
\defKV[ClesExercices]{Source=\setKV[ClesExercices]{AffichageSource}}%
\defKV[ClesExercices]{Titre=\setKV[ClesExercices]{AffichageTitre}}%
\defKV[ClesExercices]{Competence=\setKV[ClesExercices]{AffichageCompetence}}%
\defKV[ClesExercices]{Trajet=\setKV[ClesExercices]{Parcours}}%
\defKV[ClesExercices]{Confiance=\setKV[ClesExercices]{Contrat}}%
\defKV[ClesExercices]{Route=\setKV[ClesExercices]{Routes}}%
\defKV[ClesExercices]{Stop=\setKV[ClesExercices]{Stops}}%
\defKV[ClesExercices]{Lignes=\setKV[ClesExercices]{Ligne}}%
\defKV[ClesExercices]{Encart=\setKV[ClesExercices]{Cadres}}%
\defKV[ClesExercices]{CinqCinq=\setKV[ClesExercices]{Grilles}\setKV[ClesExercices]{Cinq}}%
\defKV[ClesExercices]{Seyes=\setKV[ClesExercices]{Grilles}\setKV[ClesExercices]{Huit}}%
\def\PfMTexteEncart{Indique ton travail ci-dessous.}%
\setKVdefault[SchemaParcours]{Colonnes=100,Rayon=2.5mm,Largeur=7.5mm,Couleur=gray!70}%,Csv=false}%
\setKVdefault[SchemaContrat]{Ecart=7mm,Rayon=2.5mm}%
\setKVdefault[SchemaFdR]{Ecart=7mm,Colonnes=100,Rayon=2.5mm,Largeur=7.5mm,Hauteur=1cm,Couleur=gray!70}%,Csv=false}%
% Commande pour retenir le nombre d'exercices par maquette.Utile seulement pour la clé AssembleCorrection
\xdef\PfMRetiensLienExoMa{}%
\xdef\PfMRetiensLienDefMa{}%
% Commande pour passer des options à travers la clé Input. Elle remplace \input :)
\NewDocumentCommand\Input{om}{%
  \def\Relecture{\setKV[ClesExercices]{#1}}%
  \input{#2}%
  \def\Relecture{}%
}%
% Sucres
\makeatletter%
\NewDocumentCommand\PfMDotfill{}{%
\leavevmode%
\cleaders\hb@xt@.44em{\hss\xleaders\hrule width0.33em\hss}\hfill%
\kern\z@}%
\makeatother%
%
\NewDocumentCommand\PfMpointilles{o}{%
  \IfNoValueTF{#1}{\PfMDotfill}{\makebox[#1]{\PfMDotfill}}%
}%
%
\NewDocumentCommand\PfMNbLignesRestantes{}{%
  \edef\measurepage{\dimexpr\pagegoal-\pagetotal\relax}%
  \edef\measurepagemax{\dimexpr\textheight\relax}%
 % \edef\measurepage{\dimeval{\pagegoal-\pagetotal-\baselineskip}}%
  \xdef\PfMResteLignes{\fpeval{trunc((\the\measurepage)/(\baselineskip),0)}}%
  \xdef\PfMResteLignesMax{\fpeval{trunc((\the\measurepagemax)/(\baselineskip),0)}}%
  \ifnum\PfMResteLignesMax<\PfMResteLignes\relax
    \xdef\PfMResteLignes{\PfMResteLignesMax}
  \fi
  %\xdef\PfMResteLignes{\dimeval{trunc((\the\measurepage)/(\baselineskip),0)}}%
  %Il reste \PfMResteLignes{} lignes alors que le nombre maximal de lignes sur une page est \PfMResteLignesMax{}.
}%

\NewDocumentCommand\PfMLignesFinales{}{%
  \PfMNbLignesRestantes%
  \xintFor* ##1 in {\xintSeq {1}{\PfMResteLignes}}\do{%
    \PfMpointilles\par%
  }%
}%

\NewDocumentCommand\PfMLignespointilles{sm}{%
  \IfBooleanTF{#1}{%
    \par\PfMLignesFinales%
  }{%
    \xintifboolexpr{\fpeval{#2}>1}{%
      \xintFor* ##1 in {\xintSeq {1}{#2}}\do{%
        \PfMpointilles\par%
      }%
    }{}%
  }%
}%
% Definition de longueurs
\newlength\PfMLargeurTableauBigTen%
\newlength\PfMLargeurTableauPixelArt%
\newlength\PfMLargeurSchemaParcours%
\newlength\PfMRayonSchemaParcours%
\newlength\PfMLargeurSchemaContrat%
\newlength\PfMRayonSchemaContrat%
\newlength\PfMLargeurSchemaFdR%
\newlength\PfMRayonSchemaFdR%
\newlength\PfMHauteurSchemaFdR%
\newlength\PfMHauteurAppreciation%
\newlength\PfMHauteurRemarque%
\newlength\PfMLargeurQuestion%
\newlength\PfMLargeurReponse%
\newlength\PfMLargeurJury%
\newlength\PfMEspaceAvantLignes%
\newlength\PfMEspaceApresLignes%
\newlength\PfMLargeurComp%
\newlength\CRRHauteur%
\newlength\PfMEcartSupInterMots%
\newlength\PfMCoefcompetences%
\def\PfMCoefCompetences{0.85}%
\setlength{\CRRHauteur}{10cm}%
\setlength{\PfMHauteurAppreciation}{5cm}%
\setlength{\PfMHauteurRemarque}{5cm}%
\setlength{\PfMEspaceAvantLignes}{1em}%
\setlength{\PfMEspaceApresLignes}{1em}%
\setlength{\PfMEcartSupInterMots}{1pt}%
\setlength{\PfMCoefcompetences}{0.7\linewidth}%
% définition des compteurs
\newcounter{PfMMaquette}%Pour compter le nombres de "travaux"
\setcounter{PfMMaquette}{0}%
\newcounter{PfMMaquetteSol}[PfMMaquette]%Pour compter le nombres de "travaux" dans les corrections
\setcounter{PfMMaquetteSol}{0}%
\newcounter{PfMSection}%Pour le barème et ne pas faire obstruction à section
\setcounter{PfMSection}{0}%
\newcounter{PfMExo}[PfMMaquette]%Numéro des exercices
\setcounter{PfMExo}{0}%
%\newcounter{PfMExoSolAlea}%Pour repérer les valeurs aléatoires construites automatiquement dans la solution
%\setcounter{PfMExoSolAlea}{0}%
\newcounter{PfMExoSol}[PfMMaquette]%
\setcounter{PfMExoSol}{0}%
\newcounter{PfMExoEntrai}%Pour repérer les entrainements
\setcounter{PfMExoEntrai}{0}%
\newcounter{PfMCorrigeParcoursPerso}%affichage des solutions ou pas dans le cadre d'un parcours perso
\setcounter{PfMCorrigeParcoursPerso}{0}%
\newcounter{PfMRetiensMapourPP}%Pour retenir le numéro de la maquette de référence pour les parcours perso
\setcounter{PfMRetiensMapourPP}{0}%
\newcounter{PfMSOS}%Numéro des SOS dans les parcours fléchés
\setcounter{PfMSOS}{0}%
\newcounter{PfMAlea}%Pour repérer les valeurs aléatoires construites automatiquement
\setcounter{PfMAlea}{0}%
%
\newcounter{PfMNbListeReponsesAMC}%%Pour différencier les questions lors d'un exercice à plusieurs questions.
\newcounter{PfMAMCOpen}%%Pour différencier les questions lors d'un exercice à plusieurs questions.
\newcounter{RetiensSol}%Pour l'affichage des solutions
\newcounter{RetiensRep}%Pour l'affichage des reponses.
\newcounter{RetiensInd}%Pour l'affichage des indices.
\newcounter{RetiensIndic}%Pour l'affichage des indications.
\newcounter{PfMRetiensQr}%Pour l'affichage des entrainements
\setcounter{RetiensSol}{0}%
\setcounter{RetiensRep}{0}%
\setcounter{RetiensInd}{0}%
\setcounter{RetiensIndic}{0}%
\setcounter{PfMRetiensQr}{0}%
\newcounter{PfMNbLogo}%Pour décaler les logos sur la ligne haute de tcolorbox
\setcounter{PfMNbLogo}{0}%
\newcount\Orientation%Pour le schéma des parcours
\newcount\TotalParcoursTikz%Pour le total des exos à utiliser dans l'affichage des parcours tikz
\newcounter{PfMCNNumQ}%

\newcounter{Nbcolonnes}

\newbox\PfMSauvegardeBox%

\newif\ifPfMDeuxColonnes
\newif\ifPfMRectoVerso
\newif\ifPfMRevision

\makeatletter
\if@twocolumn
  \PfMDeuxColonnestrue
  \setcounter{Nbcolonnes}{2}
\else
  \PfMDeuxColonnesfalse
  \setcounter{Nbcolonnes}{4}
\fi
\if@twoside
  \PfMRectoVersotrue
\else
  \PfMRectoVersofalse
\fi
\if@Revision
  \PfMRevisiontrue
\else
  \PfMRevisionfalse
\fi
\makeatother

% couleurs
\colorlet{PfMColCpt}{gray!50}%
\colorlet{PfMColSrc}{gray!50}%
\colorlet{PfMCadreEncart}{gray!50}
\colorlet{PfMCadreDM}{gray!85}%
\colorlet{PfMCadreParcours}{gray!50}%
\colorlet{PfMCadreContrat}{gray!50}%
\colorlet{PfMColbackFdR}{white}%
\colorlet{PfMCadreFdR}{gray!50}%
\colorlet{PfMFondEncart}{white}%
% Définitions de commandes
\newcommand\PfMIENom{\dotfill}%
\newcommand\PfMIEPrenom{\dotfill}%
\newcommand\PfMIEClasse{\dotfill}%
\newcommand\PfMCompNA{NA}%
\newcommand\PfMCompECA{ECA}%
\newcommand\PfMCompA{A}%

\NewDocumentCommand\TournerPage{O{\faShare}}{%
  \par\vfill\par\hfill{\em Tourner la page #1}\clearpage
}%

\tcbset{%
  consignes/.style={
    empty,
    right=0pt,
    left=0mm,
    top=0pt,
    bottom=0pt,
    frame engine=path,
    colframe=Crimson!10,
    notitle,
    sharp corners=west,
    borderline west={3pt}{0pt}{Crimson!50}
  }
}

\NewDocumentEnvironment{Consignes}{b}{%
  \ifboolKV[Boulot]{CAN}{}{%
  \begin{tcolorbox}[consignes]%
    \small\sffamily
    #1
  }%
}{%
\ifboolKV[Boulot]{CAN}{}{\end{tcolorbox}}%
}%

\tcbset{%
  indications/.style={
    empty,
    right=0pt,
    left=0mm,
    top=0pt,
    bottom=0pt,
    frame engine=path,
    % colframe=Crimson!10,
    frame hidden,
    notitle,
    sharp corners=west,
    borderline west={3pt}{0pt}{black!50}
  }
}

%% Option french pour les mathématiques
% By CT
\NewDocumentCommand\TypoMathFrance{}{%
  \unless\ifdefined\countletters\newcount\countletters\fi
  \countletters=`A
  \loop
  \unless\ifnum\countletters>`Z
    \begingroup\lccode`!=\countletters
    \lowercase{\endgroup\DeclareMathSymbol{!}{\mathalpha}{operators}{`!}}%
    \advance\countletters 1
    \repeat
}%

% On bloque la graine de fabrication des nombres aléatoires.
\ExplSyntaxOn
\cs_new_eq:NN \PfMGraineAlea \sys_gset_rand_seed:n
\ExplSyntaxOff

\ExplSyntaxOn
\cs_new_eq:NN \PfMChoisisGraineAlea \int_rand:n
\ExplSyntaxOff

%% Gestion de l'affichage ou pas des item (Pour élèves PAP) par exemple
% Code by egreg : https://tex.stackexchange.com/questions/627250/hide-specific-item-in-a-list
\ExplSyntaxOn

\NewDocumentCommand{\cacheitem}{}
 {
  \PfMitem_hide:
 }

\NewDocumentCommand{\PfMhideitems}{}
 {
  \bool_set_true:N \l_PfMitem_hide_bool
 }
\NewDocumentCommand{\PfMshowitems}{}
 {
  \bool_set_false:N \l_PfMitem_hide_bool
 }

\bool_new:N \l_PfMitem_hide_bool

\cs_new_protected:Nn \PfMitem_hide:
 {
  \bool_if:NT \l_PfMitem_hide_bool
   {
    \peek_regex_replace_once:nn
     % search \item followed by anything until finding
     % \item or \hideit or \end{<current environment>}
     { \c{item}.*?(\c{item}|\c{cacheitem}|\c{end}\{\u{@currenvir}\}) }
     % replace by the matching item
     { \1 }
   }
 }

\ExplSyntaxOff

\definecolor{SLCP}{HTML}{00B51A}%
\colorlet{Evidence}{SLCP}%

\NewDocumentCommand\RepartirEffectifTotal{mmm}{%
  % #1 valeur de l'effectif total
  % #2 nombre de valeurs à obtenir
  % #3 écart acceptable :) autour de la moyenne
  \xdef\PfCSLEffectifs{}%
  \xdef\PfCValeurMoyenneTemp{\fpeval{floor(#1/#2)}}%
  \xdef\PfCRetiensRETSomme{}%
  \xdef\PfCRetiensRETSommeTotale{0}%
  \xintFor* ##1 in {\xintSeq{1}{\fpeval{#2-1}}}\do{%
    \xdef\PfCSLDelta{\fpeval{randint(0,#3)}}%
    \ifodd##1\relax%
      \xdef\PfCSLEffectifs{\PfCSLEffectifs \fpeval{\PfCValeurMoyenneTemp+\PfCSLDelta},}%
      \xdef\PfCRetiensRETSomme{\PfCRetiensRETSomme-\fpeval{\PfCValeurMoyenneTemp+\PfCSLDelta}}%
      \xdef\PfCRetiensRETSommeTotale{\PfCRetiensRETSommeTotale+\fpeval{\PfCValeurMoyenneTemp+\PfCSLDelta}}%
    \else%
      \xdef\PfCSLEffectifs{\PfCSLEffectifs \fpeval{\PfCValeurMoyenneTemp-\PfCSLDelta},}%
      \xdef\PfCRetiensRETSomme{\PfCRetiensRETSomme-\fpeval{\PfCValeurMoyenneTemp-\PfCSLDelta}}%
      \xdef\PfCRetiensRETSommeTotale{\PfCRetiensRETSommeTotale+\fpeval{\PfCValeurMoyenneTemp-\PfCSLDelta}}%
    \fi%
  }%
  % On rectifie sur la dernière valeur :)
  \xdef\PfCSLEffectifs{\PfCSLEffectifs \fpeval{#1+\PfCRetiensRETSomme}}%
  \xdef\PfCRetiensRETSommeTotale{\PfCRetiensRETSommeTotale+\fpeval{#1+\PfCRetiensRETSomme}}%
%  On voulait un effectif fixe à #1 en #2 valeurs avec un écart de #3 par rapport à la moyenne.\\
  %Les choix : \PfCSLEffectifs.\\
  % Somme totale : \fpeval{\PfCRetiensRETSommeTotale}\\
}

\NewDocumentCommand\RepartirEffectifTotalB{mmm}{%
  % #1 valeur de l'effectif total
  % #2 nombre de valeurs à obtenir
  % #3 le scale de la valeur de base pour calculer le delta
  \xdef\PfCCPEffectifs{}%
  \xdef\PfCValeurMoyenneTemp{\fpeval{floor(#1/#2)}}%
  \xdef\PfCRetiensRETSomme{#1}%
  \xdef\PfCRetiensRETSommeTotale{0}%
  \xintFor* ##1 in {\xintSeq{1}{\fpeval{#2-1}}}\do{%
    %La valeur moyenne ##1 est \PfCValeurMoyenneTemp\\
    %On cherche entre \fpeval{-\PfCValeurMoyenneTemp+1} et \fpeval{\PfCValeurMoyenneTemp-1}\\
    \xdef\PfCCPDelta{\fpeval{randint(-floor(#3*\PfCValeurMoyenneTemp)+1,floor(#3*\PfCValeurMoyenneTemp)-1)}}%
    %Le delta ##1 est \PfCCPDelta\\
    \xdef\PfCCPValeurRetenue{\fpeval{\PfCValeurMoyenneTemp+\PfCCPDelta}}%
    %La valeur retenue ##1 est \PfCCPValeurRetenue\\
    \xdef\PfCCPEffectifs{\PfCCPEffectifs \PfCCPValeurRetenue,}%
    \xdef\PfCRetiensRETSomme{\fpeval{\PfCRetiensRETSomme-\PfCCPValeurRetenue}}%
    \xdef\PfCValeurMoyenneTemp{\fpeval{floor(\PfCRetiensRETSomme/(#2-##1))}}%
    \xdef\PfCRetiensRETSommeTotale{\PfCRetiensRETSommeTotale+\PfCCPValeurRetenue}%
    %La somme totale ##1 est \fpeval{\PfCRetiensRETSommeTotale}\\
  }%
%  % On rectifie sur la dernière valeur :)
  \xdef\PfCCPEffectifs{\PfCCPEffectifs \fpeval{#1-\fpeval{\PfCRetiensRETSommeTotale}}}%
  %Les choix : \PfCCPEffectifs.\\
  %% Somme totale : \fpeval{\PfCRetiensRETSommeTotale}\\
}

% Pour la gestion de l'aléatoire
% afin de permettre d'utiliser le même exercice.
% Extraire des sommets
\newcounter{PfMSommetcount}%
\newcommand\ChoixSommet[2]{%
  % #1 le nombre de sommets
  % #2 le nom de base des commandes qui sauvegarde les noms
  % après chgt
  \stepcounter{PfMAlea}%
  % fin chgt
  \xdef\CANSGFoo{A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z}%
  \MelangeListe{\CANSGFoo}{#1}%
  \ignoreemptyitems%
  \readlist*\PfMSommet{\faa}%
  \reademptyitems%
  \xintFor* ##1 in{\xintSeq{1}{#1}}\do{%
    \setcounter{PfMSommetcount}{##1}%
    \expandafter\xdef\csname p\Alph{PfMSommetcount}\endcsname{\PfMSommet[##1]}%
    % avant chgt
    % \expandafter\xdef\csname #2\Roman{PfMExo}\alph{PfMSommetcount}\endcsname{\PfMSommet[##1]}%
    % après chgt
    \expandafter\xdef\csname #2\Roman{PfMExo}\roman{PfMAlea}\alph{PfMSommetcount}\endcsname{\PfMSommet[##1]}%
  }%
}%
%%%

\NewDocumentCommand\RestoreSommet{mm}{%
  % #1 le nombre de sommets
  % #2 le nom de base utilisé lors de la création des sommets
  \stepcounter{PfMAlea}%
  \xintFor* ##1 in{\xintSeq{1}{#1}}\do{%
    \setcounter{PfMSommetcount}{##1}%
    \expandafter\xdef\csname p\Alph{PfMSommetcount}\endcsname{\csname #2\Roman{PfMExoSol}\roman{PfMAlea}\alph{PfMSommetcount}\endcsname}%
  }%
}%

\ifdef{\VariableAlea}{%
  \RenewDocumentCommand\VariableAlea{s m m}{%
    \IfBooleanTF{#1}{%
      \stepcounter{PfMAlea}%
      \expandafter\xdef\csname valeur\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname{\fpeval{#3}}%
      \expandafter\xdef\csname #2\endcsname{\csname valeur\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname}%
    }{%
      \xdef#2{\fpeval{#3}}%
    }%
  }%
}{%
  \NewDocumentCommand\VariableAlea{s m m}{%
    \IfBooleanTF{#1}{%
      \stepcounter{PfMAlea}%
      \expandafter\xdef\csname valeur\Roman{PfMExo}\roman{PfMAlea}\endcsname{\fpeval{#3}}%
      \expandafter\xdef\csname #2\endcsname{\csname valeur\Roman{PfMExo}\roman{PfMAlea}\endcsname}%
    }{%
      \xdef#2{\fpeval{#3}}%
    }%
  }%
}%

\ifdef{\ChoixAlea}{%
  \RenewDocumentCommand\ChoixAlea{s o m m m}{%
    \IfBooleanTF{#1}{%
      \stepcounter{PfMAlea}%
      \IfNoValueTF{#2}{%
        \expandafter\xdef\csname valeur\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname{\fpeval{randint(#3,#4)}}%
        \expandafter\xdef\csname #5\endcsname{\csname valeur\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname}%
      }{%
        \expandafter\xdef\csname valeur\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname{\fpeval{round(randint(#3,#4)+rand(),#2)}}%
        \expandafter\xdef\csname #5\endcsname{\csname valeur\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname}%
      }%
    }{%
      \IfNoValueTF{#2}{%
        \xdef#5{\fpeval{randint(#3,#4)}}%
      }{%
        \xdef#5{\fpeval{round(randint(#3,#4)+rand(),#2)}}%
      }%
    }%
  }%
}{%
  \NewDocumentCommand\ChoixAlea{s o m m m}{%
    \IfBooleanTF{#1}{%
      \stepcounter{PfMAlea}%
      \IfNoValueTF{#2}{%
        \expandafter\xdef\csname valeur\Roman{PfMExo}\roman{PfMAlea}\endcsname{\fpeval{randint(#3,#4)}}%
        \expandafter\xdef\csname #5\endcsname{\csname valeur\Roman{PfMExo}\roman{PfMAlea}\endcsname}%
      }{%
        \expandafter\xdef\csname valeur\Roman{PfMExo}\roman{PfMAlea}\endcsname{\fpeval{round(randint(#3,#4)+rand(),#2)}}%
        \expandafter\xdef\csname #5\endcsname{\csname valeur\Roman{PfMExo}\roman{PfMAlea}\endcsname}%
      }%
    }{%
      \IfNoValueTF{#2}{%
        \xdef#5{\fpeval{randint(#3,#4)}}%
      }{%
        \xdef#5{\fpeval{round(randint(#3,#4)+rand(),#2)}}%
      }%
    }%
  }%
}% 

\NewDocumentCommand\ChoixAleaMultiMix{mmmmm}{%
  % #1 nombre de valeurs à choisir
  % #2 valeur minimale
  % #3 valeur maximale
  % #4 valeur(s) exclue(s)
  % #5 Nom de la liste qui récupère les données.
  \ifx\bla#4\bla%
    \PackageWarning{ProfMaquette}{Il faut définir au moins une valeur à exclure.}%
  \else%
    \xdef\PfMMixFoo{#2}%
    \setsepchar{,}\ignoreemptyitems%
    \xdef\PfMMixFooEx{#4}%
    \readlist*\ListeValeursExclues{\PfMMixFooEx}%
    \xintFor* ##1 in{\xintSeq{\fpeval{#2+1}}{#3}}\do{%
      \xdef\PfMMixFoo{\PfMMixFoo,##1}%
    }%
    \readlist*\ListeValeursRetenues{\PfMMixFoo}%
    \xintFor* ##1 in{\xintSeq{1}{\ListeValeursExclueslen}}\do{%
      \xdef\PfMMixFoo{}%
      \xintFor* ##2 in{\xintSeq{1}{\ListeValeursRetenueslen}}\do{%
        \xintifboolexpr{\ListeValeursRetenues[##2]==\ListeValeursExclues[##1]}{}{%
          \xdef\PfMMixFoo{\PfMMixFoo,\ListeValeursRetenues[##2]}%
        }%
      }%
      \ignoreemptyitems%
      \readlist*\ListeValeursRetenues{\PfMMixFoo}%
    }%
    \ifnum\ListeValeursRetenueslen=1\relax%
      \xdef#5{\PfMMixFoo}%
    \else%
      \ifnum#1=1\relax
        \MelangeListe*{\PfMMixFoo}{#1}%
      \else
        \MelangeListe{\PfMMixFoo}{#1}%
      \fi
      \xdef#5{\faa}%
    \fi%
  \fi%
}%

\NewDocumentCommand\ChoixAleaMultiMixListe{mmmm}{%
  % #1 nombre de valeurs à choisir
  % #2 Liste à parcourir
  % #3 valeur(s) exclue(s)
  % #4 Nom de la liste qui récupère les données.
  \ifx\bla#3\bla%
    \PackageWarning{ProfMaquette}{Il faut définir au moins une valeur à exclure.}%
  \else%
    \setsepchar{,}\ignoreemptyitems%
    \readlist*\ListeValeursExclues{#3}%
    \readlist*\ListeValeursRetenues{#2}%
    \xintFor* ##1 in{\xintSeq{1}{\ListeValeursExclueslen}}\do{%
      \xdef\PfMMixFoo{}%
      \xintFor* ##2 in{\xintSeq{1}{\ListeValeursRetenueslen}}\do{%
        \xintifboolexpr{\ListeValeursRetenues[##2]==\ListeValeursExclues[##1]}{}{%
          \xdef\PfMMixFoo{\PfMMixFoo,\ListeValeursRetenues[##2]}%
        }%
      }%
      \setsepchar{,}\ignoreemptyitems%
      \readlist*\ListeValeursRetenues{\PfMMixFoo}%
    }%
    \ifnum\ListeValeursRetenueslen>1\relax%
      \ifnum#1=1\relax
        \MelangeListe*{\PfMMixFoo}{#1}%
      \else
        \MelangeListe{\PfMMixFoo}{#1}%
      \fi
      \xdef#4{\faa}%
    \else%
      \xdef#4{\PfMMixFoo}%
    \fi%
  \fi%
}%

\NewDocumentCommand\ChoixAleaListe{ommmm}{%
  % Il n'y a pas de répétitions des éléments.
  % #1 précision des décimaux
  % #2 nombre d'éléments
  % #3 valeur entière minimale
  % #4 valeur entière maximale
  % #5 nom de la liste récupérant les nombres choisis.
  % 1ere valeur
  \IfNoValueTF{#1}{\xdef\ListeNombresAlea{\fpeval{randint(#3,#4)}}}{\xdef\ListeNombresAlea{\fpeval{round(randint(#3,#4-1)+rand(),#1)}}}%
  \setsepchar{,}%
  \readlist*\ListeARenvoyer{\ListeNombresAlea}%
  \whiledo{\ListeARenvoyerlen<#2}{%
    \IfNoValueTF{#1}{\xdef\SuivantNombreAlea{\fpeval{randint(#3,#4)}}}{\xdef\SuivantNombreAlea{\fpeval{round(randint(#3,#4-1)+rand(),#1)}}}%
    \def\Unique{0}%
    \xintFor* ##1 in{\xintSeq{1}{\ListeARenvoyerlen}}\do{%
      \xintifboolexpr{\fpeval{\SuivantNombreAlea}==\fpeval{\ListeARenvoyer[##1]}}{%
        \def\Unique{1}%
        \xintBreakFor%
      }{}%
    }%
    \ifnum\fpeval{\Unique}=0\relax%
      \xdef\ListeNombresAlea{\ListeNombresAlea,\SuivantNombreAlea}%
      \readlist*\ListeARenvoyer{\ListeNombresAlea}%
    \fi%
  }%
  \xdef#5{\ListeNombresAlea}%
}%

\NewDocumentCommand\ChoixAleaListeold{mmmm}{%
  % Il n'y a pas de répétitions des éléments.
  % #1 nombre d'éléments
  % #2 valeur entière minimale
  % #3 valeur entière maximale
  % #4 nom de la liste récupérant les nombres choisis.
  % 1ere valeur
  \xdef\ListeNombresAlea{\fpeval{randint(#2,#3)}}
  \setsepchar{,}\ignoreemptyitems
  \readlist*\ListeARenvoyer{\ListeNombresAlea}%
  \whiledo{\ListeARenvoyerlen<#1}{%
    \xdef\SuivantNombreAlea{\fpeval{randint(#2,#3)}}%
    \def\Unique{0}%
    \xintFor* ##1 in{\xintSeq{1}{\ListeARenvoyerlen}}\do{%
      \xintifboolexpr{\fpeval{\SuivantNombreAlea}==\fpeval{\ListeARenvoyer[##1]}}{%
        \def\Unique{1}%
        \xintBreakFor%
      }{}%
    }%
    \ifnum\fpeval{\Unique}=0\relax%
      \xdef\ListeNombresAlea{\ListeNombresAlea,\SuivantNombreAlea}%
      \readlist*\ListeARenvoyer{\ListeNombresAlea}%
    \fi%
  }%
  \xdef#4{\ListeNombresAlea}%
}

\NewDocumentCommand\ChoixAleaListeMix{mmmmm}{%
  % ideé by reddit : I need a randomly ordered list...
  % Il n'y a pas de répétitions des éléments.
  % #1 nombre d'éléments
  % #2 valeur entière minimale
  % #3 valeur entière maximale
  % #4 Liste des valeurs à exclure  
  % #5 nom de la liste récupérant les nombres choisis.
  \xdef\Toto{#4}%
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeValeursExclues{\Toto}%
  % 1ere valeur
  \xdef\PfMNbCoups{0}%
  \whiledo{\fpeval{\PfMNbCoups}<\ListeValeursExclueslen}{%
    \xdef\ListeNombresAlea{\fpeval{randint(#2,#3)}}%
    \xintFor* ##1 in {\xintSeq{1}{\ListeValeursExclueslen}}\do{%
      \xintifboolexpr{\fpeval{\ListeNombresAlea}==\fpeval{\ListeValeursExclues[##1]}}{%
        \xdef\PfMNbCoups{0}%
        \xintBreakFor%
      }{\xdef\PfMNbCoups{\fpeval{\PfMNbCoups+1}}}%
    }%
  }%
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeARenvoyer{\ListeNombresAlea}%
  \whiledo{\ListeARenvoyerlen<#1}{%
    \xdef\SuivantNombreAlea{\fpeval{randint(#2,#3)}}%
    \def\Unique{0}%
    \xintFor* ##1 in {\xintSeq{1}{\ListeValeursExclueslen}}\do{
      \xintifboolexpr{\fpeval{\SuivantNombreAlea}==\fpeval{\ListeValeursExclues[##1]}}{%
        \def\Unique{1}%
        \xintBreakFor%
      }{}%
    }%
    \ifnum\fpeval{\Unique}=0\relax%
      \xintFor* ##1 in{\xintSeq{1}{\ListeARenvoyerlen}}\do{%
        \xintifboolexpr{\fpeval{\SuivantNombreAlea}==\fpeval{\ListeARenvoyer[##1]}}{%
          \def\Unique{1}%
          \xintBreakFor%
        }{}%
      }%
    \fi%
    \ifnum\fpeval{\Unique}=0\relax%
      \xdef\ListeNombresAlea{\ListeNombresAlea,\SuivantNombreAlea}%
      \readlist*\ListeARenvoyer{\ListeNombresAlea}%
    \fi%
  }%
  \xdef#5{\ListeNombresAlea}%
}

\NewDocumentCommand\ChoixAleaMulti{mmmm}{%
  % #1 nombre de valeurs à choisir qui peut être supérieur au nombre de valeurs entières disponibles
  % #2 valeur minimale
  % #3 valeur maximale
  % #4 Nom de la liste qui récupère les données.
  \xdef\PfMMixFoo{\fpeval{randint(#2,#3)}}%
  \xintFor* ##1 in{\xintSeq{1}{\fpeval{#1-1}}}\do{%
    \xdef\PfMMixFoo{\PfMMixFoo,\fpeval{randint(#2,#3)}}%
  }%
  \xdef#4{\PfMMixFoo}%
}%

\NewDocumentCommand\ChoixAleaMultiMixRep{mmmmm}{%
  % #1 nombre de valeurs à choisir
  % #2 valeur minimale
  % #3 valeur maximale
  % #4 valeur à exclure
  % #5 Nom de la liste qui récupère les données.
  \xdef\PfCRetiensRetenues{}%
  \xdef\PfMMixFoo{#2,#3}%
  \setsepchar{,}\ignoreemptyitems%
  \xdef\PfMMixFooExclues{#4}%
  \readlist*\ListeValeursExclues{\PfMMixFooExclues}%
  \xintFor* ##1 in{\xintSeq{\fpeval{#2+1}}{\fpeval{#3-1}}}\do{%
    \xdef\PfCRetiensExclues{0}%
    \xintFor* ##2 in{\xintSeq{1}{\ListeValeursExclueslen}}\do{%
      \xintifboolexpr{##1==\ListeValeursExclues[##2]}{\xdef\PfCRetiensExclues{\fpeval{\PfCRetiensExclues+1}}}{}%
    }%
    \ifnum\fpeval{\PfCRetiensExclues}=0\relax%
      \xdef\PfMMixFoo{\PfMMixFoo,##1}%
    \fi%
  }%
  \xintFor* ##1 in {\xintSeq{1}{#1}}\do{%
    \MelangeListe{\PfMMixFoo}{1}%
    \xdef\PfCRetiensRetenues{\PfCRetiensRetenues\faa}%
  }%
  \xdef#5{\PfCRetiensRetenues}%
}%

\NewDocumentCommand\MelangeNomFonction{mm}{%
  % #1 Nombre d'éléments à conserver
  % #2 Nom de la commande qui conserve
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeInter{f,g,h,k,\ell,m,p,q,r,s,u,v,w}%%
  \xdef\faa{}% Liste construite
  \xdef\fii{}% Liste détruite
  \xintFor* ##1 in {\xintSeq{1}{#1}}\do{%
    \xintifboolexpr{#1==1}{%
      \xdef\Alea{\fpeval{randint(\ListeInterlen)}}%
      \xdef\faa{\faa\ListeInter[\Alea]}%
    }{%
      \xintifboolexpr{\ListeInterlen>1}{%
        \xdef\Alea{\fpeval{randint(\ListeInterlen)}}%
        \xdef\faa{\faa\ListeInter[\Alea],}%
        \xdef\fii{}%
        \xintFor* ##2 in {\xintSeq{1}{\ListeInterlen}}\do{%
          \xintifboolexpr{##2 == \Alea}{%
          }{%
            \xdef\fii{\fii \ListeInter[##2],}%
          }%
        }%
      }{%
        \xdef\faa{\faa\ListeInter[1]}%
      }%
      \readlist*\ListeInter{\fii}%
    }%
  }%
  \xdef#2{\faa}%
}%

\NewDocumentCommand\MelangeNomVariable{mm}{%
  % #1 Nombre d'éléments à conserver
  % #2 Nom de la commande qui conserve
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeInter{a,b,n,t,x,y,z}%
  \xdef\faa{}% Liste construite
  \xdef\fii{}% Liste détruite
  \xintFor* ##1 in {\xintSeq{1}{#1}}\do{%
    \xintifboolexpr{#1==1}{%
      \xdef\Alea{\fpeval{randint(\ListeInterlen)}}%
      \xdef\faa{\faa\ListeInter[\Alea]}%
    }{%
      \xintifboolexpr{\ListeInterlen>1}{%
        \xdef\Alea{\fpeval{randint(\ListeInterlen)}}%
        \xdef\faa{\faa\ListeInter[\Alea],}%
        \xdef\fii{}%
        \xintFor* ##2 in {\xintSeq{1}{\ListeInterlen}}\do{%
          \xintifboolexpr{##2 == \Alea}{%
          }{%
            \xdef\fii{\fii \ListeInter[##2],}%
          }%
        }%
      }{%
        \xdef\faa{\faa\ListeInter[1]}%
      }%
      \readlist*\ListeInter{\fii}%
    }%
  }%
  \xdef#2{\faa}%
}%

\NewDocumentCommand\AffSigne{smm}{%
  \ifnum#2=0\relax{}
  \else
  \ifnum#3=0\relax{}
  \else
  \ifnum#3>0\relax{}
  +
  \fi
  \fi
  \fi
}%

\NewDocumentCommand\AffPoly{O{x}m}{%
  \setsepchar{,}\ignoreemptyitems
  \readlist*\ListeCoeff{#2}
  \ensuremath{
    \ifnum\ListeCoeff[1]=0\relax
    \Affichage{\ListeCoeff[2]}{\ListeCoeff[3]}{\ListeCoeff[4]}%
    \else
    \ifnum\ListeCoeff[1]=1\relax
    #1^3%
    \else\ifnum\ListeCoeff[1]=-1\relax
    -#1^3
    \else\num{\ListeCoeff[1]}#1^3
    \fi
    \fi
    \ifnum\ListeCoeff[2]=0\relax
    \ifnum\ListeCoeff[3]=0\relax
    \ifnum\ListeCoeff[4]=0\relax
    \else
    \ifnum\ListeCoeff[4]>0
    +\Affichage[Lettre=#1]{0}{0}{\ListeCoeff[4]}
    \else
    \Affichage[Lettre=#1]{0}{0}{\ListeCoeff[4]}
    \fi
    \fi
    \else
    \ifnum\ListeCoeff[3]>0\relax
    +\Affichage[Lettre=#1]{0}{\ListeCoeff[3]}{\ListeCoeff[4]}
    \else
    \Affichage[Lettre=#1]{0}{\ListeCoeff[3]}{\ListeCoeff[4]}
    \fi
    \fi
    \else
    \ifnum\ListeCoeff[2]>0\relax
    +\Affichage[Lettre=#1]{\ListeCoeff[2]}{\ListeCoeff[3]}{\ListeCoeff[4]}%\num{\ListeCoeff[2]}x^2
    \else
    \Affichage[Lettre=#1]{\ListeCoeff[2]}{\ListeCoeff[3]}{\ListeCoeff[4]}%\num{\ListeCoeff[2]}x^2
    \fi
    \fi
    \fi
  }
}

\newcounter{PfCenumi}

\NewDocumentCommand\RestoreChoixAlea{m}{%
  \stepcounter{PfMAlea}%
  %Je restaure la valeur \thePfMExoSol-\thePfMAlea
  \expandafter\xdef\csname #1\endcsname{\csname valeur\Roman{PfMMaquette}\Roman{PfMExoSol}\roman{PfMAlea}\endcsname}%
}%

\NewDocumentCommand\ExporteListe{mm}{%
  %#1 le nom de la liste
  %#2 le contenu de la liste.
  \stepcounter{PfMAlea}%
  \expandafter\xdef\csname Liste\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname{#2}%
  \expandafter\xdef\csname #1\endcsname{\csname Liste\Roman{PfMMaquette}\Roman{PfMExo}\roman{PfMAlea}\endcsname}%
}%

\NewDocumentCommand\RestoreListe{m}{%
  %#1 le nom de la liste à restaurer
  \stepcounter{PfMAlea}%
  \expandafter\xdef\csname #1\endcsname{\csname Liste\Roman{PfMMaquette}\Roman{PfMExoSol}\roman{PfMAlea}\endcsname}%
}%

%%
\newcounter{Melquestions}%
\newcounter{Comptequestions}%
%
\NewDocumentEnvironment{Enumelange}{o+b}{%
  \setcounter{Melquestions}{0}%
  \setsepchar{\item}\ignoreemptyitems%
  \readlist*\ListeTest{#2}%
  \reademptyitems
 % La liste des éléments retenus est \showitems*\ListeTest[]\par
  \IfNoValueTF{#1}{%
    \ChoixAleaMultiMix{\ListeTestlen}{1}{\ListeTestlen}{0}{\ListeShuffleA}%
    \xdef\MelangeValeurTotale{\ListeTestlen}%
  }{%
    \ChoixAleaMultiMix{#1}{1}{\ListeTestlen}{0}{\ListeShuffleA}%
    \xdef\MelangeValeurTotale{#1}%
  }%
  \ExporteListe{ListeShuffle}{\ListeShuffleA}%
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeNumQ{\ListeShuffleA}%
  \reademptyitems
 % L'ordre des questions est \ListeNumQ[]
  \setcounter{Comptequestions}{1}%
  \begin{enumerate}
    \loop%
    \setcounter{Melquestions}{\ListeNumQ[\theComptequestions]}%
  \item \ListeTest[\theMelquestions]%
    \stepcounter{Comptequestions}%
    \ifnum\theComptequestions<\numexpr\MelangeValeurTotale+1%
      \repeat%
  \end{enumerate}
}{}%

\NewDocumentEnvironment{Enumelangesol}{b}{%
  \setcounter{Melquestions}{0}%
  \setsepchar{\item}\ignoreemptyitems%
  \readlist*\ListeTest{#1}%
  \reademptyitems
  \RestoreListe{ListeShuffle}%
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeNumQ{\ListeShuffle}%
  \reademptyitems
%  la liste des éléments retenus est \showitems*\ListeTest[]\par
%  L'ordre des questions est \ListeNumQ[]\par
  \setcounter{Comptequestions}{1}%
  \begin{enumerate}
    \loop%
    \setcounter{Melquestions}{\ListeNumQ[\theComptequestions]}%
  \item \ListeTest[\theMelquestions]%
    \stepcounter{Comptequestions}%
    \ifnum\theComptequestions<\numexpr\ListeNumQlen+1%
      \repeat%
  \end{enumerate}
}{}%

\newcount\PfManp%
\newcount\PfMbnp%
\newcount\PfMcnp%
\newcount\PfMdnp%

\NewDocumentCommand\DeterminerNonPremiersEntreEuxInf{m}{%#1 : le nombre entier \`a tester
  \xdef\RetiensNonPremiersEntreEuxInf{}%
  \xdef\RetiensPremiersEntreEuxInf{}%
  \PfManp=#1%
  \PfMbnp=2%
  \PfMcnp=0%
  \PfMdnp=0%
  \whiledo{\PfMbnp<\PfManp}{%
    \PGCD{\the\PfManp}{\the\PfMbnp}{}%
    \ifnum\pgcd>1\relax
      \PfMcnp=\numexpr\PfMcnp+1\relax
      \ifnum\PfMcnp=1\relax
        \xdef\RetiensNonPremiersEntreEuxInf{\the\PfMbnp}%
      \else%
        \xdef\RetiensNonPremiersEntreEuxInf{\RetiensNonPremiersEntreEuxInf,\the\PfMbnp}%
      \fi%
    \else
      \PfMdnp=\numexpr\PfMdnp+1\relax
      \ifnum\PfMdnp=1\relax
        \xdef\RetiensPremiersEntreEuxInf{\the\PfMbnp}%
      \else%
        \xdef\RetiensPremiersEntreEuxInf{\RetiensPremiersEntreEuxInf,\the\PfMbnp}%
      \fi%
    \fi%
    \PfMbnp=\numexpr\PfMbnp+1%
  }%
  \ifnum\PfMcnp=0\relax%
    \xdef\RetiensNonPremiersEntreEuxInf{1}%
  \fi%
  \ifnum\PfMdnp=0\relax%
    \xdef\RetiensPremiersEntreEuxInf{1}%
  \fi%
}%

% Définitions pour les compétences
\NewDocumentCommand\Competences{O{3}m}{%
  \setsepchar[*]{/}\ignoreemptyitems%
  \readlist*\ListeCompetence{#2}
  \ifnum#1=3\relax
  \buildtabcompetences%
  \else
  \Buildtabcompetences{#1}{\ListeCompetencelen}%
  \fi
}

\def\buildtabcompetences{%
  \[\begin{tabular}{|p{\PfMCoefcompetences}|*{3}{>{\centering\arraybackslash}p{0.05\linewidth}|}}
      \cline{2-4}
      \multicolumn{1}{c|}{}&\PfMCompNA&\PfMCompECA&\PfMCompA\\
      \hline
      \xintFor* ##1 in {\xintSeq {1}{\ListeCompetencelen}}\do{\ListeCompetence[##1]&&&\\\hline}
    \end{tabular}
  \]
}%

\def\Buildtabcompetences#1#2{%
  \setlength{\PfMLargeurComp}{\fpeval{\PfMCoefCompetences-0.05*#1}\linewidth-\fpeval{2*(#1-3)}\tabcolsep}%
  \[\begin{tabular}{|p{\PfMLargeurComp}|*{#1}{>{\centering\arraybackslash}p{0.05\linewidth}|}}%
      \cline{2-\fpeval{1+#1}}%
      \multicolumn{1}{c|}{}\xintFor* ##1 in{\xintSeq{1}{#1}}\do{%
      &\ListeCompetence[##1]}\\%
      \hline%
      \xintFor* ##1 in {\xintSeq {\fpeval{#1+1}}{\ListeCompetencelen}}\do{\ListeCompetence[##1]%
      \xintFor* ##2 in {\xintSeq{1}{#1}}\do{&}%
      \\\hline%
      }%
    \end{tabular}%
  \]%
}%
%
%
%%% Définitions des environnements pour la correction
\makeatletter
\newwrite\verbatim@out

\def\SolutionWrite{%
  \setcounter{PfMAlea}{0}%
  \@bsphack%
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-Ex\thePfMExo.sol"%
  \let\do\@makeother\dospecials%
  \catcode`\^^M\active%
  \def\verbatim@processline{%
    \immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}%
\def\endSolutionWrite{\immediate\closeout\verbatim@out\@esphack}%

\def\SolutionWritePP{%
  \@bsphack
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-PPEx\thePfMExo.sol" %
  \let\do\@makeother\dospecials
  \catcode`\^^M\active
  \def\verbatim@processline{%
    \immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}
\def\endSolutionWritePP{\immediate\closeout\verbatim@out\@esphack}

\def\ReponseWrite{%
  \@bsphack
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-Ex\thePfMExo.rep" %
  \let\do\@makeother\dospecials
  \catcode`\^^M\active
  \def\verbatim@processline{%
    \immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}
\def\endReponseWrite{\immediate\closeout\verbatim@out\@esphack}

\def\IndiceWrite{%
  \@bsphack
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-Ex\thePfMExo.cdp" %coup de pouce
  \let\do\@makeother\dospecials
  \catcode`\^^M\active
  \def\verbatim@processline{%
    \immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}
\def\endIndiceWrite{\immediate\closeout\verbatim@out\@esphack}
\makeatother

\def\SolutionNow{\textbf{\csname PfMTNomSol\Roman{PfMExo}\endcsname~--}\par\nopagebreak\setcounter{PfMExoSol}{\thePfMExo}\setcounter{PfMAlea}{0}\PfMAffichageHideItemSolution}%\setcounter{PfMExoSolAlea}{\thePfMExo}
\def\endSolutionNow{\par\goodbreak\PfMshowitems}

\def\ReponseNow{\textbf{Réponse(s) de l'exercice --}\par\nopagebreak\PfMAffichageHideItemSolution}
\def\endReponseNow{\par\goodbreak\PfMshowitems}

\def\IndiceNow{\textbf{Indice(s) --}\par\nopagebreak\PfMAffichageHideItemSolution}
\def\endIndiceNow{\par\goodbreak\PfMshowitems}

\NewDocumentEnvironment{Solution}{}{}{}%
\NewDocumentEnvironment{Reponse}{}{}{}%
\NewDocumentEnvironment{Indice}{}{}{}%
\NewDocumentEnvironment{PfMHide}{+b}{}{}%
\NewDocumentEnvironment{PfMSeek}{+b}{#1}{}%

\NewDocumentEnvironment{AideA}{+b}{%
  \ifnum\fpeval{\useKV[ClesExercices]{Aide}}>0\relax%
    \begin{PfMSeek}%
      #1
    \end{PfMSeek}%
  \else%
    \begin{PfMHide}%
      #1
    \end{PfMHide}
  \fi%
}{%
}%

\NewDocumentEnvironment{AideB}{+b}{%
  \ifnum\fpeval{\useKV[ClesExercices]{Aide}}>1\relax%
    \begin{PfMSeek}%
      #1
    \end{PfMSeek}
  \else%
    \begin{PfMHide}%
      #1
    \end{PfMHide}
  \fi%
}{%
}%
  
\NewDocumentEnvironment{Indications}{+b}{%
  \ifnum\theRetiensIndic=1\relax%
    \textbf{\PfMTexteDesIndications :}\par%
      #1
  \fi%
}{%
}%

\makeatletter
\NewDocumentCommand\PfMChoixAffichageCorrection{}{%
  \if@AssembleCorrections
    \let\Solution\SolutionWrite\let\endSolution\endSolutionWrite
  \fi
  \ifboolKV[Boulot]{CorrigeAll}{%
    \let\Solution\SolutionWrite\let\endSolution\endSolutionWrite
    \let\Reponse\ReponseWrite\let\endReponse\endReponseWrite
    \let\Indice\IndiceWrite\let\endIndice\endIndiceWrite
  }{%
  \ifboolKV[Boulot]{ParcoursPerso}{%
    \let\Solution\SolutionWritePP\let\endSolution\endSolutionWritePP
  }{%
    \ifnum\theRetiensSol=1\relax
    \let\Reponse\comment\let\endReponse\endcomment
    \let\Indice\comment\let\endIndice\endcomment
    \ifboolKV[Boulot]{CorrigeFin}{%
      \let\Solution\SolutionWrite\let\endSolution\endSolutionWrite
    }{\ifboolKV[Boulot]{CorrigeApres}{%
        \let\Solution\SolutionNow\let\endSolution\endSolutionNow
      }{}%
    }%
    \else
    \let\Solution\comment\let\endSolution\endcomment
    \let\Indice\comment\let\endIndice\endcomment
    \ifnum\theRetiensRep=1\relax
    \ifboolKV[Boulot]{CorrigeFin}{%
      \let\Reponse\ReponseWrite\let\endReponse\endReponseWrite
    }{\ifboolKV[Boulot]{CorrigeApres}{%
        \let\Reponse\ReponseNow\let\endReponse\endReponseNow
      }{}%
    }%
    \else
    \let\Solution\comment\let\endSolution\endcomment
    \let\Reponse\comment\let\endReponse\endcomment
    \ifnum\theRetiensInd=1\relax
    \ifboolKV[Boulot]{CorrigeFin}{%
      \let\Indice\IndiceWrite\let\endIndice\endIndiceWrite
    }{\ifboolKV[Boulot]{CorrigeApres}{%
        \let\Indice\IndiceNow\let\endIndice\endIndiceNow
      }{}%
    }%
    \fi
    \fi
    \fi
  }%
  }%
}%
\makeatother

\makeatletter
\NewDocumentCommand\PfMChoixCorrection{}{%
  \setcounter{RetiensSol}{0}%
  \setcounter{RetiensRep}{0}%
  \setcounter{RetiensInd}{0}%
  \if@AssembleCorrections
    \setcounter{RetiensSol}{1}%
  \else
  \ifboolKV[Boulot]{CorrigeFin}{%
%    \ifboolKV[Boulot]{CorrigeAll}{%
%      \setcounter{RetiensSol}{1}%
%      \setcounter{RetiensRep}{1}%
%      \setcounter{RetiensInd}{1}%
%    }{%
      \setcounter{RetiensSol}{1}%
      \setcounter{RetiensRep}{0}%
      \setcounter{RetiensInd}{0}%
%    }%
  }{\ifboolKV[Boulot]{CorrigeApres}{%
      \setcounter{RetiensSol}{1}%
      \setcounter{RetiensRep}{0}%
      \setcounter{RetiensInd}{0}%
    }{}%
  }%
  \fi
  \ifboolKV[ClesExercices]{PasCorrige}{%
    \setcounter{RetiensSol}{0}%
    \setcounter{RetiensRep}{0}%
    \setcounter{RetiensInd}{0}%
  }{%
    \ifboolKV[ClesExercices]{Direct}{%
      \setcounter{RetiensSol}{0}%
      \setcounter{RetiensRep}{1}%
      \setcounter{RetiensInd}{0}%
    }{%
      \ifboolKV[ClesExercices]{Pouce}{%
        \setcounter{RetiensSol}{0}%
        \setcounter{RetiensRep}{0}%
        \setcounter{RetiensInd}{1}%
      }{}%
    }%
  }%
}%
\makeatother

\NewDocumentCommand\PfMChoixEntrainement{}{%
  \setcounter{PfMRetiensQr}{0}%
  \ifboolKV[ClesExercices]{AEntretenir}{\setcounter{PfMRetiensQr}{1}}{}%
}%

\NewDocumentCommand\PfMChoixAffichageEntrainement{}{%
  \ifnum\thePfMRetiensQr=1\relax%
    \let\Entrainement\EntrainementWrite\let\endEntrainement\endEntrainementWrite%
  \else%
    \let\Entrainement\comment\let\endEntrainement\endcomment
  \fi%
}%

\def\PfMTexteDuCorrige{Corrigé de l'exercice}%
\def\PfMTexteDeLEntrainement{Automatisme(s) lié(s) à l'exercice}%
\def\PfMTexteDesIndications{Indications}%

\NewDocumentCommand\PfMAffichageCorrige{}{%
  \ifboolKV[Boulot]{CAN}{%
    \xintFor* ##1 in{\xintSeq{1}{\PfMCANTotalExo}}\do{%
      \setcounter{PfMExoSol}{##1}%
      \setcounter{PfMAlea}{0}%
      \IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.sol}{\textbf{Question\ifnum\PfMCANTotalExo=1\relax\else~\ifboolKV[Boulot]{CorrigeSeul}{##1}{\ref{TestCAN-\thePfMMaquette-##1}}:\fi}~\input{\jobname-Ma\thePfMMaquette-Ex##1.sol}\par\goodbreak}{}%
    }%
  }{%
    \setcounter{PfMExoSol}{0}%
    %\setcounter{PfMExoSolAlea}{0}%
    \xintFor* ##1 in{\xintSeq{1}{\thePfMExo}}\do{%
      \refstepcounter{PfMExoSol}%
      %\stepcounter{PfMExoSolAlea}%
      \label{pagesol-\thePfMMaquette-\thePfMExoSol}%
      \setcounter{PfMAlea}{0}%
      \def\PfMTexteDuCorrige{\csname PfMTNomSol\Roman{PfMExoSol}\endcsname}%
      \IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.sol}{\PfMAffichageHideItemSolution\textbf{\PfMTexteDuCorrige\ifnum\thePfMExo=1\relax\else~\ifboolKV[Boulot]{CorrigeSeul}{##1}{\ref{page-\thePfMMaquette-##1}}\fi\PfMAffichageTitreSolution}\par\nopagebreak\input{\jobname-Ma\thePfMMaquette-Ex##1.sol}\par\goodbreak}{\IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.rep}{\PfMAffichageHideItemSolution\textbf{Réponse(s) seule(s) de l'exercice\ifnum\thePfMExo=1\relax\else~\ifboolKV[Boulot]{CorrigeSeul}{##1}{\ref{page-\thePfMMaquette-##1}}\fi}\par\nopagebreak\input{\jobname-Ma\thePfMMaquette-Ex##1.rep}\par\goodbreak}{%
          \IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.cdp}{\PfMAffichageHideItemSolution\textbf{Indice(s) pour l'exercice\ifnum\thePfMExo=1\relax\else~\ifboolKV[Boulot]{CorrigeSeul}{##1}{\ref{page-\thePfMMaquette-##1}}\fi}\par\nopagebreak\input{\jobname-Ma\thePfMMaquette-Ex##1.cdp}\par\goodbreak}{}%
        }%
      }%
      \PfMshowitems%
    }%
  }%
}%

% Tous les corrigés
\NewDocumentCommand\PfMAffichageTousCorriges{}{%
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeNombreExoMq{\PfMRetiensLienExoMa}%
  \reademptyitems%
  \xdef\Tototaltal{\thePfMMaquette}%
  \xintFor* ##2 in{\xintSeq{1}{\Tototaltal}}\do{%
    \refstepcounter{PfMMaquetteSol}%
    \setcounter{PfMMaquette}{##2}%
    \setcounter{PfMExoSol}{0}%
    %\setcounter{PfMExoSolAlea}{0}%
    \ifPfMRectoVerso%
      \cleardoublepage%
    \else%
      \clearpage%
    \fi%
    \input{\jobname-DefiMq-\thePfMMaquette}%
    \ifboolKV[Boulot]{CorrectionColonnes}{\begin{multicols}{\useKV[Boulot]{Colonnes}}}{}%
    \xintFor* ##1 in{\xintSeq{1}{\ListeNombreExoMq[##2]}}\do{%
      \stepcounter{PfMExoSol}%
      %\stepcounter{PfMExoSolAlea}%
      \label{pagesol-\thePfMMaquetteSol-\thePfMExoSol}%
      \setcounter{PfMAlea}{0}%
      \IfFileExists{\jobname-Ma##2-Ex##1.sol}{\PfMAffichageHideItemSolution\textbf{\PfMTexteDuCorrige\ifnum\thePfMExo=1\relax\else~\ifboolKV[Boulot]{CorrigeSeul}{##1}{\ref{page-##2-##1}}\fi\PfMAffichageTitreSolution}\par\nopagebreak\input{\jobname-Ma##2-Ex##1.sol}\par\goodbreak}{\IfFileExists{\jobname-Ma##2-Ex##1.rep}{\PfMAffichageHideItemSolution\textbf{Réponse(s) seule(s) de l'exercice\ifnum\thePfMExo=1\relax\else~\ifboolKV[Boulot]{CorrigeSeul}{##1}{\ref{page-##2-##1}}\fi}\par\nopagebreak\input{\jobname-Ma##2-Ex##1.rep}\par\goodbreak}{%
          \IfFileExists{\jobname-Ma##2-Ex##1.cdp}{\PfMAffichageHideItemSolution\textbf{Indice(s) pour l'exercice\ifnum\thePfMExo=1\relax\else~\ifboolKV[Boulot]{CorrigeSeul}{##1}{\ref{page-##2-##1}}\fi}\par\nopagebreak\input{\jobname-Ma##2-Ex##1.cdp}\par\goodbreak}{}%
        }%
      }%
      \PfMshowitems%
    }%
    \ifboolKV[Boulot]{CorrectionColonnes}{\end{multicols}}{}%
  }%
}%

\NewDocumentEnvironment{Entrainement}{}{}{}%

\makeatletter
\def\EntrainementWrite{%
  \@bsphack%
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-Ex\thePfMExo.qrc"%
  \let\do\@makeother\dospecials%
  \catcode`\^^M\active%
  \def\verbatim@processline{%
    \immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}%
\def\endEntrainementWrite{\immediate\closeout\verbatim@out\@esphack}%
\makeatother

\NewDocumentCommand\PfMAffichageEntrainement{}{%
  \ifboolKV[Boulot]{ESansSaut}{\vfill}{%
    \ifPfMDeuxColonnes
      \newpage
    \else
      \ifPfMRectoVerso
        \cleardoublepage
      \else
        \clearpage
      \fi
    \fi
  }%
  \TikzAutomatismes
  \setlength{\columnseprule}{\useKV[Boulot]{EEpaisseur}}%
  \ifboolKV[Boulot]{EntrainementColonnes}{\begin{multicols}{\useKV[Boulot]{EColonnes}}}{}%
  \setcounter{PfMExoEntrai}{0}%
  \xintFor* ##1 in{\xintSeq{1}{\thePfMExo}}\do{%
    \refstepcounter{PfMExoEntrai}%
    \IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.qrc}{%
      \begin{center}
        \label{pageentrai-\thePfMMaquette-\thePfMExoEntrai}%
        \textbf{\PfMTexteDeLEntrainement\ifnum\thePfMExo=1\relax\else~\ref{page-\thePfMMaquette-##1}\fi}\par\nopagebreak\input{\jobname-Ma\thePfMMaquette-Ex##1.qrc}\end{center}%
    }{}%
  }%
  \ifboolKV[Boulot]{EntrainementColonnes}{\end{multicols}}{}%
}%

\NewDocumentCommand\TikzAutomatismes{}{%
  \begin{tcolorbox}
    \begin{center}
      \Large\sffamily Automatismes%
    \end{center}
  \end{tcolorbox}%
}%

%%%%%%%% BAREME %%%%%%%%%%%
%% Bareme
\newlength{\brouillon}

\newcommand*\FranPt[1]{%
%  \ifboolKV[ClesExercices]{BaremeDetaille}{%
    \color{gray!75}(\num{#1})%
%  }{}
}

\makeatletter
\newcommand\BaremeEspace@Marge{18pt}
\newcommand\BaremeEspace@MargeCorrection{0pt}
%\f@size est la taille par défaut de la fonte.

\newcommand*\brm[1]{%
  \ifboolKV[Boulot]{Fiche}{}{%
    \ifboolKV[Boulot]{FdR}{}{%
      \ifboolKV[Boulot]{Contrat}{}{%
        \ifboolKV[Boulot]{Parcours}{}{%
          \immediate\write\@auxout{%
            \string\opadd*{#1}%
            {total\the\c@PfMSection-\the\c@PfMExo}%
            {total\the\c@PfMSection-\the\c@PfMExo}%
            \string\opcopy{\thePfMExo}{TotalExo}%
          }%
          \ifboolKV[ClesExercices]{BaremeDetaille}{%
            \setlength{\brouillon}{\BaremeEspace@Marge-\linewidth+\textwidth}%
            \makebox[0pt][r]{\footnotesize\FranPt{#1}\hspace*{\brouillon}}%
            \ignorespaces%
          }{}%
        }%
      }%
    }%
  }%
}%

\NewDocumentCommand\BRM{som}{%
  \ifboolKV[Boulot]{Fiche}{}{%
    \immediate\write\@auxout{%
      \string\opadd*{#3}%
      {total\the\c@PfMSection-\the\c@PfMExo}%
      {total\the\c@PfMSection-\the\c@PfMExo}%
      \string\opcopy{\thePfMExo}{TotalExo}%
    }%
    \IfBooleanTF{#1}{%
      \ifboolKV[ClesExercices]{BaremeDetaille}{%
        \setlength{\brouillon}{\fpeval{\BaremeEspace@Marge-#2}pt}%
        \makebox[0pt][r]{\footnotesize\FranPt{#3}\hspace*{\brouillon}}%
        \ignorespaces%
      }{}%
    }{%
      \ifboolKV[ClesExercices]{BaremeDetaille}{%
        \setlength{\brouillon}{\BaremeEspace@Marge-\linewidth+\textwidth}%
        \makebox[0pt][r]{\footnotesize\FranPt{#3}\hspace*{\brouillon}}%
        \ignorespaces%
      }{}%
    }%
  }%
}%

\newcommand*{\Brm}[1]{%
  \ifboolKV[Boulot]{Fiche}{}{%
    \setlength{\brouillon}{\BaremeEspace@MargeCorrection-\linewidth+\textwidth}%
    \makebox[0pt][r]{\footnotesize\color{gray!75}(\opprint{#1})\hspace*{\brouillon}}%
    \ignorespaces%
  }%
}%

\newcommand\total[1]{%
  \@ifundefined{Op@total#1}{recompilez}%
  {%
    \opunzero{total#1}% on ne sait jamais
    \opset{decimalsepsymbol={,}}%
    \opprint{total#1}~%
    \opset{decimalsepsymbol={.}}%
    \useKV[ClesExercices]{MotPoint}%
    \opcmp{total#1}{2}%
    \ifopge s\fi%
  }%
}

\newcommand\ScoreMaximal{%
  \@ifundefined{Op@ScoreTotal\thePfMMaquette}{recompilez}%
  {%
    \opunzero{ScoreTotal\thePfMMaquette}% on ne sait jamais
    \opset{decimalsepsymbol={,}}%
    \opprint{ScoreTotal\thePfMMaquette}~%
    \opset{decimalsepsymbol={.}}%
    \useKV[ClesExercices]{MotPoint}%
    \opcmp{ScoreTotal\thePfMMaquette}{2}%
    \ifopge s\fi%
  }%
}

\newcommand\NoteFinale{%
  \@ifundefined{Op@TotalExo}{Recompilez}%
  {%
    \opexport{TotalExo}{\TotalExo}%Le total d'exercices est \TotalExo.
    \xdef\NoteTotale{0}%
    \xintFor* ##1 in {\xintSeq{1}{\TotalExo}}\do{%
     \opexport{total##1-##1}{\totalUn}%
     \xdef\NoteTotale{\fpeval{\NoteTotale+\totalUn}}%
   }%
   \NoteTotale%
  }%
}%

\def\TexteDevantPointParExercice{}%

\newcommand\TableauRecapitulatif{%
  \@ifundefined{Op@TotalExo}{Recompilez}%
  {%
    \opexport{TotalExo}{\TotalExo}%
    \begin{tabular}{|c|c|}
      \hline
      \multicolumn{2}{|c|}{Barème récapitulatif}\\
      \hline
      \xintFor* ##1 in {\xintSeq{1}{\TotalExo}}\do{
      Exercice ##1&\TexteDevantPointParExercice\total{##1-##1}\\
      }
      \hline
    \end{tabular}
  }
}%
\makeatother
%%%%%%%% FIN BAREME %%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% Commandes pour les affichages optionnels dans les cadres
\NewDocumentCommand{\PfMAffichageLogos}{}{%
  \ifboolKV[ClesExercices]{Calculatrice}{}{\node[fill=white,anchor=west,xshift=(\thePfMNbLogo*2.5+(\thePfMNbLogo-1)*20)*1pt] at (A.east) {\cancel{\faCalculator}};\stepcounter{PfMNbLogo}}%
  \ifboolKV[ClesExercices]{Oral}{\node[fill=white,anchor=west,xshift=(\thePfMNbLogo*2.5+(\thePfMNbLogo-1)*20)*1pt] at (A.east) {\faBullhorn};\stepcounter{PfMNbLogo}}{}
  % 
  \ifnum\fpeval{\useKV[ClesExercices]{NombreEleves}}=1\relax
    \node[colLogo,fill=white,anchor=west,xshift=(\thePfMNbLogo*2.5+(\thePfMNbLogo-1)*20)*1pt] at (A.east) {\faUser};\stepcounter{PfMNbLogo}
  \else%
    \ifnum\fpeval{\useKV[ClesExercices]{NombreEleves}}>1\relax
      \node[colLogo,fill=white,anchor=west,xshift=(\thePfMNbLogo*2.5+(\thePfMNbLogo-1)*20)*1pt] at (A.east) {\faUsers};\stepcounter{PfMNbLogo}%
    \fi%
  \fi%
}
%
\NewDocumentCommand{\PfMAffichageCompetencesTravaillees}{}{%
  \ifboolKV[ClesExercices]{AffichageCompetence}{%
     \node[%
     fill=white,%
     anchor=east,%
     xshift=-10pt,%
     text=PfMColCpt,%
     ]
     at (frame.north east)
     {\itshape\scriptsize\sffamily Compétence(s) dominante(s) : \useKV[ClesExercices]{Competence}};
   }{}%
 }%
%
\NewDocumentCommand{\PfMLienVersSolution}{}{%
  \ifboolKV[Boulot]{VersSolution}{%
    \ifboolKV[ClesExercices]{PasCorrige}{}{%
      \node[%
      fill=tcbcolback,%
      anchor=center,%
      ] at ($(frame.north east)!0.25!(frame.south east)$){\hyperref[pagesol-\thePfMMaquette-\thePfMExo]{\faKey}};%
    }%
  }{}%
}%

\NewDocumentCommand{\PfMLienVersEntrainement}{}{%
  \ifboolKV[Boulot]{AvecEntrainement}{%
    \ifboolKV[ClesExercices]{AEntretenir}{%
      \node[%
      fill=tcbcolback,%
      anchor=center,rotate=45%
      ] at ($(frame.north east)!0.75!(frame.south east)$){\hyperref[pageentrai-\thePfMMaquette-\thePfMExo]{\faDumbbell}};%
    }{}%
  }{}%
}%

\makeatletter
\NewDocumentCommand{\PfMAffichageSource}{}{%
  \ifboolKV[ClesExercices]{AffichageSource}{%
    \node[%
    fill=tcbcolback,
    anchor=east,
    yshift=0.5pt,
    xshift=-\kvtcb@rightlower,%-10pt,
    text=PfMColSrc,
    ]
    at (frame.south east)
    {\scriptsize\sffamily \useKV[ClesExercices]{Source}};
  }{}%
}%
\NewDocumentCommand{\PfMAffichageSourceQCM}{}{%
  \ifboolKV[ClesExercices]{AffichageSource}{%
    \node[%
    %fill=tcbcolback,
    anchor=east,
    yshift=1em,
    xshift=-\kvtcb@rightlower,%-10pt,
    text=PfMColSrc,
    ]
    at (frame.south east)
    {\scriptsize\sffamily \useKV[ClesExercices]{Source}};
  }{}%
}%
\makeatother
%%%%%%%%%%%%%%%%%%%%%%%%
%
%
%%%Style des différents documents
\tcbset{%
  tikzbase/.style={%
    before skip=1em,
    enhanced,
    breakable,
    bicolor,
    colback=LightSteelBlue,
    colbacklower=white,
    frame hidden,
    overlay=\useKV[ClesExercices]{Ajout}%
  }%
}%

\tcbset{%
  tikzbasehtml/.style={%
    before skip=1em,
    enhanced,
    breakable,
    fonttitle=\bfseries\sffamily,
    title=\ifboolKV[ClesExercices]{AffichageTitre}{\useKV[ClesExercices]{Titre}}{},%
    coltitle=black,
    frame hidden,
    overlay=\useKV[ClesExercices]{Ajout}%
  }
}

\makeatletter
%%% Base des exercices DM
\tcbset{%
  tikzdm/.style={%
    enhanced,
    breakable,
    colback=white,
    colframe=PfMCadreDM,
    fonttitle=\bfseries\sffamily,
    title=Exercice\ifboolKV[ClesExercices]{Numerote}{ \thePfMExo}{}\ifboolKV[ClesExercices]{AffichageTitre}{ : \useKV[ClesExercices]{Titre}}{},
    attach boxed title to top left={xshift=0.2mm},
    boxed title size=standard,
    boxed title style={%
      empty,
      rounded corners=north, 
      boxrule=0pt,
      bottom=0pt
    },
    underlay boxed title={%
      \filldraw[rounded corners, gray!85, line width=.5mm]
      (title.south east)--++(90:\tcboxedtitleheight)--++(183:\tcboxedtitlewidth)--++(-90:\tcboxedtitleheight)|-cycle;
    },%
    overlay unbroken and first={%
      %
      \useKV[ClesExercices]{Ajout}%
      %
      \PfMAffichageSource%
      %
      \ifboolKV[ClesExercices]{BaremeTotal}{%
        \node[
        fill=white,
        anchor=east,
        xshift=-10pt,
        text=black,
        font=\bfseries
        ]
        at (frame.north east)
        {\footnotesize\sffamily \total{\the\c@PfMSection-\the\c@PfMExo}};
      }{}%
      \PfMLienVersSolution%
    }%
  }%
}%

\NewDocumentEnvironment{exerciceDM}{so}{%
  \setcounter{PfMAlea}{0}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
  \IfBooleanTF{#1}{%
    \setKV[ClesExercices]{Numerote=false}%
  }{}%
  \PfMAvantLesExercices%
  \ifboolKV[Boulot]{CorrigeSeul}{}{%
  \PfMChoixTitreSolution%
  \immediate\write\@auxout{%
    \string\opcopy{\thePfMExo}{TotalExo}%
  }%
  \ifboolKV[ClesExercices]{BaremeTotal}{%
    \immediate\write\@auxout{%
      \string\opcopy{0}{total\the\c@PfMSection-\the\c@PfMExo}%
    }}{}%
  \begin{tcolorbox}[%
  tikzdm,%
  label is label,%
  label=page-\thePfMMaquette-\thePfMExo,%
  ]%
  \ifboolKV[Boulot]{Dys}{\raggedright}{}%
}%
}%
}{%
  \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
        \PfMJusteAvantLaFinDesExercices%
  \end{tcolorbox}%
  \PfMApresLesExercices%
}%
}%
}%

%%Contrat

%\makeatletter
\NewDocumentCommand\AfficheContrat{o}{%
  \useKVdefault[SchemaContrat]%
  \setKV[SchemaContrat]{#1}%
  \setlength{\PfMLargeurSchemaContrat}{\useKV[SchemaContrat]{Ecart}}%
  \setlength{\PfMRayonSchemaContrat}{\useKV[SchemaContrat]{Rayon}}%
  %\colorlet{PfMCouleurSP}{\useKV[SchemaContrat]{Couleur}}%
  \@ifundefined{Op@\Roman{PfMMaquette}-ContratTotalExo}{Recompilez pour obtenir le contrat.}%
  {%
    \opexport{\Roman{PfMMaquette}-ContratTotalExo}{\ContratTotalExo}%
%    % Total Exo : \ContratTotalExo
    \setsepchar{,}\ignoreemptyitems%
    \xdef\PfCFooListeA{\csname \Roman{PfMMaquette}Contrata\endcsname}%
    \xdef\PfCFooListeB{\csname \Roman{PfMMaquette}Contratb\endcsname}%
    \readlist*\ListeA{\PfCFooListeA}%
    \readlist*\ListeB{\PfCFooListeB}%
%    Liste A : \showitems\ListeA[]\par
%    Liste B : \showitems\ListeB[]\par
%    % On écrit en supposant que la liste A est la plus longue
    \xdef\LongueurA{\ListeAlen}%
    \xdef\LongueurB{\ListeBlen}%
    \xdef\Foo{}%
    \xdef\Decalage{0}%
    % On change la liste B en ajoutant des 0 où il manque des éléments.
    \xintFor* ##1 in{\xintSeq{1}{\LongueurB}}\do{%
      \xdef\Test{0}%
      \xintFor * ##2 in {\xintSeq{1}{\LongueurA}}\do{%
        % ListeA vaut \ListeA[##2] et ListeB vaut \ListeB[##1]\par
        \IfStrEq{\ListeA[##2]}{\ListeB[##1]}{\xdef\Test{\fpeval{\Test+1}}\xdef\Position{##2}}{}%
      }%
      \xintifboolexpr{\Test==0}{%pas présent
        \xdef\Foo{\Foo,\ListeB[##1]}
      }{%présent
        \xintifboolexpr{\Position>\fpeval{##1+\Decalage}}{%
          \xintFor* ##3 in{\xintSeq{\fpeval{##1+\Decalage}}{\fpeval{\Position-1}}}\do{%
            \xdef\Foo{\Foo,0}%
          }
          \xdef\Decalage{\fpeval{\Position-##1-\Decalage}}
        }{}
        \xdef\Foo{\Foo,\ListeB[##1]}
      }%
    }%
    % on vérifie qu'on n'a pas oublié des 0 :)
    \readlist*\ListeB{\Foo}%
    \ifnum\ListeAlen>\ListeBlen\relax
      \xintFor* ##4 in{\xintSeq{1}{\fpeval{\ListeAlen-\ListeBlen}}}\do{
        \xdef\Foo{\Foo,0}
      }
    \fi
%    La liste A est \showitems\ListeA[]\par
    \readlist*\ListeB{\Foo}%
%    La liste B modifiée est \showitems\ListeB[]\par
    \xdef\FooNoeuds{}%
    \foreachitem\compteur\in\ListeA{%
      \xdef\FooNoeuds{\FooNoeuds,\ListeA[\compteurcnt]/\ListeB[\compteurcnt]}%
    }%
    \BuildConfianceTikz{\FooNoeuds}%
  }%
}%
%\makeatother

\NewDocumentCommand\BuildConfianceTikz{m}{%
  \setsepchar[*]{,*/}\ignoreemptyitems%
  \readlist*\Noeuds{#1}%
  \begin{tikzpicture}
    \coordinate (C-0) at (-\PfMLargeurSchemaContrat,0);%
    \coordinate (A-0) at (-\PfMLargeurSchemaContrat,-\PfMLargeurSchemaContrat+\PfMRayonSchemaContrat);%
    \coordinate (B-0) at (-\PfMLargeurSchemaContrat,\PfMLargeurSchemaContrat-\PfMRayonSchemaContrat);%
    \xintFor*##1 in{\xintSeq{1}{\fpeval{\Noeudslen+1}}}\do{%
      \coordinate[xshift=\PfMLargeurSchemaContrat] (C-##1) at (C-\fpeval{##1-1});%
      \coordinate[xshift=\PfMLargeurSchemaContrat] (A-##1) at (A-\fpeval{##1-1});%
      \coordinate[xshift=\PfMLargeurSchemaContrat] (B-##1) at (B-\fpeval{##1-1});%
    }%
    % On place les points
    \xintFor* ##1 in{\xintSeq{1}{\Noeudslen}}\do{%
      \xintifboolexpr{\Noeuds[##1,1]==\Noeuds[##1,2]}{%
        \coordinate (A-##1) at (C-##1);%
        \coordinate (B-##1) at (C-##1);%
      }{}%
    }%
    % on trace
    \xintifboolexpr{\Noeuds[1,1]==\Noeuds[1,2]}{\draw[line width=1pt,->] (C-0)--(C-1);%
    }{%
      \draw[line width=1pt,->] (A-0)--(A-1);
      \draw[line width=1pt,->] (B-0)--(B-1);
    }%
    \xintFor* ##1 in{\xintSeq{2}{\Noeudslen}}\do{%
      \draw[line width=1pt] (A-\fpeval{##1-1})--(A-##1);%
      \draw[line width=1pt] (B-\fpeval{##1-1})--(B-##1);%
    }%
    \xintifboolexpr{\Noeuds[\Noeudslen,1]==\Noeuds[\Noeudslen,2]}{\draw[line width=1pt,->] (C-\Noeudslen)--(C-\fpeval{\Noeudslen+1});%
    }{%
      \draw[line width=1pt,->] (A-\Noeudslen)--(A-\fpeval{\Noeudslen+1});
      \draw[line width=1pt,->] (B-\Noeudslen)--(B-\fpeval{\Noeudslen+1});
    }%
    % on dessine les cercles
    \xintFor* ##1 in{\xintSeq{1}{\Noeudslen}}\do{%
      \xintifboolexpr{\Noeuds[##1,1]==\Noeuds[##1,2]}{%
        \draw[fill=white] (C-##1) circle (\PfMRayonSchemaContrat) node{\ref{page-\thePfMMaquette-\Noeuds[##1,1]}};%
      }{%
        \draw[fill=white] (A-##1) circle (\PfMRayonSchemaContrat) node{\ref{page-\thePfMMaquette-\Noeuds[##1,1]}};%
        \xintifboolexpr{\Noeuds[##1,2]==0}{}{\draw[fill=white] (B-##1) circle (\PfMRayonSchemaContrat) node{\ref{page-\thePfMMaquette-\Noeuds[##1,2]}};}%
      }%
    }%
  \end{tikzpicture}%
}%

\NewDocumentCommand\RemplisContrat{m}{%
  \ifcsname \Roman{PfMMaquette}confiance#1\endcsname
  \expandafter\xdef\csname \Roman{PfMMaquette}confiance#1\endcsname{\csname \Roman{PfMMaquette}confiance#1\endcsname,\thePfMExo}%
%  Yes !
  \else
%  No !
  \expandafter\xdef\csname \Roman{PfMMaquette}confiance#1\endcsname{\thePfMExo}%
  \fi
  \immediate\write\@auxout{\noexpand\expandafter\gdef\noexpand\csname \Roman{PfMMaquette}Contrat#1\endcsname{\csname \Roman{PfMMaquette}confiance#1\endcsname}}%
}%

\NewDocumentEnvironment{exerciceContrat}{so}{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
  \IfBooleanTF{#1}{%
    \setKV[ClesExercices]{Numerote=false}%
  }{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
  \PfMAvantLesExercices%
  \ifboolKV[Boulot]{CorrigeSeul}{}{%
  \PfMChoixTitreSolution%
  \immediate\write\@auxout{\string\opcopy{\thePfMExo}{\Roman{PfMMaquette}-ContratTotalExo}}%
  % Creation des parcours
  \ifboolKV[ClesExercices]{Contrat}{%
    % Remise à zéro de conteneurs des parcours
    \setsepchar{,}%
    \xdef\PfMFooListeContrat{\useKV[ClesExercices]{Confiance}}
    \readlist*\ListeContrat{\PfMFooListeContrat}%
    \foreachitem\compteur\in\ListeContrat{%
      \RemplisContrat{\ListeContrat[\compteurcnt]}%
    }%
  }{}%
  %
  \begin{tcolorbox}[%
    tikzcontrat,
    label is label,
    label=page-\thePfMMaquette-\thePfMExo
    ]
    \ifboolKV[Boulot]{Dys}{\raggedright}{}%
  }%
  }%
}{%
  \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
        \PfMJusteAvantLaFinDesExercices%
    \end{tcolorbox}
    \PfMApresLesExercices%
  }%
  }%
}%
%%% Contrat %%%
\tcbset{%
  usercontrat/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\tcbset{%
  usercontratcor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\NewDocumentCommand\TikzContrat{}{%
  \begin{tcolorbox}[usercontrat]%
    \Large\sffamily \useKV[Contrat]{Theme}\hfill\useKV[Contrat]{Niveau} \useKV[Contrat]{Classe}%
    \par{\tiny\useKV[Contrat]{Code}}\hfill{\scriptsize\useKV[Contrat]{Date}}%
  \end{tcolorbox}%
}

\NewDocumentCommand\TikzContratCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \clearpage
  \setKV[Contrat]{#1}%
  \begin{tcolorbox}[usercontratcor]%
    \Large\sffamily \useKV[Contrat]{Theme} (Correction) \hfill\useKV[Contrat]{Niveau} \useKV[Contrat]{Classe}
    \par{\tiny\useKV[Contrat]{Code}}\hfill{\scriptsize\useKV[Contrat]{Date}}
  \end{tcolorbox}%
}

\tcbset{%
  tikzcontrat/.style={%
    before skip=1em,
    enhanced,
    breakable,
    colback=white,
    colframe=PfMCadreContrat,
    overlay unbroken and first={%
      \node[%
      name=A,
      fill=white,
      anchor=west,
      xshift=10pt,
      ] at (frame.north west){\bfseries\sffamily \useKV[Contrat]{NomExercice} \thePfMExo\ifboolKV[ClesExercices]{AffichageTitre}{ : \useKV[ClesExercices]{Titre}}{}};
      %%
      \useKV[ClesExercices]{Ajout}%
      %%
      \PfMAffichageLogos%
      %%
      \PfMAffichageCompetencesTravaillees%
      %%
      \PfMAffichageSource%
      %
      \PfMLienVersSolution%
      %
      \PfMLienVersEntrainement%
    }%
  }%
}%
%% Fin Contrat %%%

%%FdR
\NewDocumentCommand\AfficheFdR{o}{%
  \useKVdefault[SchemaFdR]%
  \setKV[SchemaFdR]{#1}%
  \setlength{\PfMLargeurSchemaFdR}{\useKV[SchemaFdR]{Ecart}}%
  \setlength{\PfMRayonSchemaFdR}{\useKV[SchemaFdR]{Rayon}}%
  \setlength{\PfMHauteurSchemaFdR}{\useKV[SchemaFdR]{Hauteur}}%
  \colorlet{PfMCouleurFdR}{\useKV[SchemaFdR]{Couleur}}%
  \@ifundefined{Op@\Roman{PfMMaquette}-FdRTotalExo}{Recompilez pour obtenir la feuille de route.}%
  {%
    \opexport{\Roman{PfMMaquette}-FdRTotalExo}{\FdRTotalExo}%
    \xdef\PfMListeExerciceFdR{\csname \Roman{PfMMaquette}FdRtrue\endcsname}%
    \ifcsname \Roman{PfMMaquette}FdRstop\endcsname%
      \xdef\PfMListeExerciceFdRStop{\csname \Roman{PfMMaquette}FdRstop\endcsname}%
    \else%
      \xdef\PfMListeExerciceFdRStop{}%
    \fi%
    % On ajoute un stop au dernier exercice
    \xdef\PfMListeExerciceFdRStop{\PfMListeExerciceFdRStop,\FdRTotalExo}%
    %Liste Exos : \PfMListeExerciceFdR\\
    %Liste Stop : \PfMListeExerciceFdRStop\\
    \BuildRouteTikz{\FdRTotalExo}{\PfMListeExerciceFdR}{\PfMListeExerciceFdRStop}%
  }%
}%

\NewDocumentCommand\BuildRouteTikz{mmm}{%
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeRetiensExo{#2}%
  \readlist*\ListeRetiensStop{#3}%
  \reademptyitems%
  %Les exos retenus : \showitems\ListeRetiensExo[]\\
  %Les exos stop : \showitems\ListeRetiensStop[]\\
  \xdef\LongueurA{\ListeRetiensExolen}%
  \xdef\LongueurB{\fpeval{\ListeRetiensStoplen-1}}%
  \xdef\PfMFooExoIncrustes{}%
  \xintFor* ##1 in{\xintSeq{1}{#1}}\do{%
    \xdef\RetiensExclus{0}%
    \xintFor* ##2 in {\xintSeq{1}{\LongueurA}}\do{%
      \xintifboolexpr{\ListeRetiensExo[##2]==##1}{\xdef\RetiensExclus{1}}{}%
    }%
    \xintifboolexpr{\RetiensExclus>0}{}{\xdef\PfMFooExoIncrustes{\PfMFooExoIncrustes,##1}}%
  }%
  %%%%%%%%%%
  %PfMFooExoIncrustes : \PfMFooExoIncrustes\\%
  \ifx\bla\PfMFooExoIncrustes\bla%
    \xdef\LongueurC{0}%
  \else%
    \setsepchar{,}\ignoreemptyitems%
    \readlist*\ListeRetiensExclus{\PfMFooExoIncrustes}%
    \xdef\LongueurC{\ListeRetiensExcluslen}%
  \fi%
  %%%%%%%%%%%%%%%%%%%%
  % portion 1
  % Portion 1 :\\
  \xdef\ListeRoute{}%
  \xdef\ListeRouteExclus{}%
  \xdef\NBExo{0}\xdef\NBExoSup{0}%
  \xintFor* ##1 in{\xintSeq{1}{\LongueurA}}\do{%
    \xintifboolexpr{\ListeRetiensExo[##1]>\ListeRetiensStop[1]}{%
      %
    }{%
      \xdef\NBExo{\fpeval{\NBExo+1}}\xdef\ListeRoute{\ListeRoute,\ListeRetiensExo[##1]}%
    }%
  }%
  \ifnum\LongueurC=0\relax%
  \else%
    \xintFor* ##1 in{\xintSeq{1}{\LongueurC}}\do{%
      \xintifboolexpr{\ListeRetiensExclus[##1]>\ListeRetiensStop[1]}{}{\xdef\NBExoSup{\fpeval{\NBExoSup+1}}\xdef\ListeRouteExclus{\ListeRouteExclus,\ListeRetiensExclus[##1]}}%
    }%
  \fi%
  \xintifboolexpr{\NBExoSup==\NBExo}{}{%
    \xintifboolexpr{\NBExoSup>\NBExo}{%
      \xintFor* ##1 in{\xintSeq{1}{\fpeval{\NBExoSup-\NBExo}}}\do{%
        \xdef\ListeRoute{\ListeRoute,-1}%0 pour l'écart
      }%
    }{%
      \xintFor* ##1 in{\xintSeq{1}{\fpeval{\NBExo-\NBExoSup}}}\do{%
        \xdef\ListeRouteExclus{\ListeRouteExclus,-1}%0 pour l'écart
      }%
    }%
  }%
  \xdef\ListeRoute{\ListeRoute,0}%0 pour le symbole stop
  \xdef\ListeRouteExclus{\ListeRouteExclus,0}%0 pour le symbole stop
   %Route Basse P1 : \ListeRoute\\
   %Route Haute P1 : \ListeRouteExclus\\
  % portions centrales
  % Portions centrales :\\
   \xintifboolexpr{\ListeRetiensStoplen>2}{%
     \xintFor* ##1 in{\xintSeq{1}{\fpeval{\LongueurB-1}}}\do{%
       \xdef\NBExo{0}\xdef\NBExoSup{0}%
       \xintFor* ##2 in{\xintSeq{1}{\LongueurA}}\do{%
         \xintifboolexpr{\ListeRetiensExo[##2]<\fpeval{\ListeRetiensStop[##1]+1} || \ListeRetiensExo[##2]>\ListeRetiensStop[\fpeval{##1+1}]}{}{\xdef\NBExo{\fpeval{\NBExo+1}}\xdef\ListeRoute{\ListeRoute,\ListeRetiensExo[##2]}%
         }%
       }%
       \ifnum\LongueurC=0\relax%
       \else%
         \xintFor* ##2 in{\xintSeq{1}{\LongueurC}}\do{%
           \xintifboolexpr{\ListeRetiensExclus[##2]<\fpeval{\ListeRetiensStop[##1]+1} || \ListeRetiensExclus[##2]>\ListeRetiensStop[\fpeval{##1+1}]}{}{\xdef\NBExoSup{\fpeval{\NBExoSup+1}}\xdef\ListeRouteExclus{\ListeRouteExclus,\ListeRetiensExclus[##2]}%
           }%%
         }%
       \fi%
      \xintifboolexpr{\NBExoSup==\NBExo}{}{%
        \xintifboolexpr{\NBExoSup>\NBExo}{%
          \xintFor* ##3 in{\xintSeq{1}{\fpeval{\NBExoSup-\NBExo}}}\do{%
            \xdef\ListeRoute{\ListeRoute,-1}%0 pour l'écart
          }%
        }{%
          \xintFor* ##3 in{\xintSeq{1}{\fpeval{\NBExo-\NBExoSup}}}\do{%
            \xdef\ListeRouteExclus{\ListeRouteExclus,-1}%0 pour l'écart
          }%
        }%
      }%
      \xdef\ListeRoute{\ListeRoute,0}\xdef\ListeRouteExclus{\ListeRouteExclus,0}%
    }%
   }{}%
   %Route Basse P2 : \ListeRoute\\
   %Route Haute P2 : \ListeRouteExclus\\
  % portion finale
  % Portion fin \\
   \xintifboolexpr{\ListeRetiensStoplen>1}{%
     \xdef\NBExo{0}\xdef\NBExoSup{0}%
     \xintFor* ##1 in{\xintSeq{1}{\LongueurA}}\do{%
       \xintifboolexpr{\fpeval{\ListeRetiensExo[##1]}>\fpeval{\ListeRetiensStop[\ListeRetiensStoplen-1]}}{\xdef\NBExo{\fpeval{\NBExo+1}}\xdef\ListeRoute{\ListeRoute,\ListeRetiensExo[##1]}}{}%
     }%
     \ifnum\LongueurC=0\relax%
     \else%
     \xintFor* ##1 in{\xintSeq{1}{\LongueurC}}\do{%
       \xintifboolexpr{\ListeRetiensExclus[##1]>\fpeval{\ListeRetiensStop[\ListeRetiensStoplen-1]}}{\xdef\NBExoSup{\fpeval{\NBExoSup+1}}\xdef\ListeRouteExclus{\ListeRouteExclus,\ListeRetiensExclus[##1]}}{}%
     }%
     \fi%
     \xintifboolexpr{\NBExoSup==\NBExo}{}{%
       \xintifboolexpr{\NBExoSup>\NBExo}{%
         \xintFor* ##1 in{\xintSeq{1}{\fpeval{\NBExoSup-\NBExo}}}\do{%
           \xdef\ListeRoute{\ListeRoute,-1}%0 pour l'écart
         }%
       }{%
         \xintFor* ##1 in{\xintSeq{1}{\fpeval{\NBExo-\NBExoSup}}}\do{%
           \xdef\ListeRouteExclus{\ListeRouteExclus,-1}%0 pour l'écart
         }%
       }%
     }%
     \xdef\ListeRoute{\ListeRoute,0}%0 pour le symbole stop
     \xdef\ListeRouteExclus{\ListeRouteExclus,0}%0 pour le symbole stop
   }{}%
  %Route Basse P3 : \ListeRoute\\
  %Route Haute P3 : \ListeRouteExclus\\
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListeRouteBasse{\ListeRoute}%
  \readlist*\ListeRouteHaute{\ListeRouteExclus}%
  %Liste Route : \showitems\ListeRouteBasse[]\\
  %Liste Exclus : \showitems\ListeRouteHaute[]\\
  \begin{tikzpicture}
    \coordinate (A-0) at (-\PfMLargeurSchemaFdR,0);
    \coordinate (A-1) at (0,0);%
    \coordinate (B-1) at (0,\PfMHauteurSchemaFdR);%
    \xintFor* ##1 in{\xintSeq{2}{\ListeRouteBasselen}}\do{%
      \coordinate[xshift=\PfMLargeurSchemaFdR] (A-##1) at (A-\fpeval{##1-1});%
      \coordinate[xshift=\PfMLargeurSchemaFdR] (B-##1) at (B-\fpeval{##1-1});%
    }%
   \coordinate[xshift=\PfMLargeurSchemaFdR] (A-\fpeval{\ListeRouteBasselen+1}) at (A-\ListeRouteBasselen);%
   % Route haute
   % Correct !
   %\xintFor* ##1 in{\xintSeq{1}{\ListeRouteHautelen}}\do{%
   %  \xintifboolexpr{\ListeRouteHaute[##1]<0}{%
   %    \draw[red] (B-##1) to (B-\fpeval{##1+1});
   %  }{%
   %    \xintifboolexpr{\ListeRouteHaute[##1]==0}{%
   %      \draw (B-##1) to (A-##1);%
   %    }{%
   %      \draw[blue] (B-##1) to (B-\fpeval{##1+1});
   %      \draw[fill=white](B-##1) circle (\PfMRayonSchemaFdR) node{\ref{page-\thePfMMaquette-\ListeRouteHaute[##1]}};
   %    }%
   %  }%
   %}%
   %% Fin Correct !
   \xdef\RetiensLesZeros{0}%
   \xdef\RetiensLeDepart{0}%
   \xdef\RetiensLesReponses{0}%
   \xdef\RetiensNonAffichees{0}%
   \xdef\RetiensEtage{0}%
   \xintFor* ##1 in{\xintSeq{1}{\ListeRouteHautelen}}\do{%
     \xintifboolexpr{\ListeRouteHaute[##1]==0}{%
       \xdef\RetiensEtage{\fpeval{\RetiensEtage+1}}%
       \xdef\RetiensLesReponses{\fpeval{\RetiensLesReponses+1}}%
       \xintFor* ##2 in{\xintSeq{\fpeval{\RetiensLeDepart+1}}{\fpeval{\RetiensLeDepart+\RetiensLesReponses}}}\do{%
         \xintifboolexpr{\ListeRouteHaute[##2]<0}{%
           \xdef\RetiensNonAffichees{\fpeval{\RetiensNonAffichees+1}}%
         }{}%
       }%
       %\node at (0,\RetiensEtage) {Il y a \RetiensNonAffichees fois le nombre -1.};
       % On affiche
       \xintifboolexpr{\fpeval{\RetiensLesReponses-1}==\RetiensNonAffichees}{%
%         %
       }{%
         \xintFor* ##2 in{\xintSeq{\fpeval{\RetiensLeDepart+1}}{\fpeval{\RetiensLeDepart+\RetiensLesReponses}}}\do{%
           \xintifboolexpr{\ListeRouteHaute[##2]<0}{%
             \draw (B-##2) to (B-\fpeval{##2+1});%
           }{%
             \xintifboolexpr{\ListeRouteHaute[##2]==0}{%
               %\xintifboolexpr{\fpeval{\RetiensLesReponses-1}==\RetiensNonAffichees}{}{
                 \draw (B-##2) to (A-##2);%
               %}
             }{%
               \draw[] (B-##2) to (B-\fpeval{##2+1});%
               \draw[fill=white](B-##2) circle (\PfMRayonSchemaFdR) node{\ref{page-\thePfMMaquette-\ListeRouteHaute[##2]}};%
             }%
           }%    
         }%
       }%
       %
       \xdef\RetiensLeDepart{\fpeval{\RetiensLeDepart+\RetiensLesReponses}}%
       \xdef\RetiensLesReponses{0}%
       \xdef\RetiensNonAffichees{0}%
     }{\xdef\RetiensLesReponses{\fpeval{\RetiensLesReponses+1}}%
     }%
   }%
   % Route basse
    \foreach\i in{1,...,\fpeval{\ListeRouteBasselen}}{%
      \draw[line width=1pt] (A-\fpeval{\i-1}) -- (A-\i);%
    }%
    \draw[line width=1pt,>=latex,->] (A-\ListeRouteBasselen) to (A-\fpeval{\ListeRouteBasselen+1});%
    \xintFor* ##1 in{\xintSeq{1}{\ListeRouteBasselen}}\do{%
      \xintifboolexpr{\ListeRouteBasse[##1]<0}{}{%
        \xintifboolexpr{\ListeRouteBasse[##1]==0}{%
          \draw[fill=white,draw=white](A-##1) circle (\PfMRayonSchemaFdR) node{\faCheck};%
        }{%
          \draw[fill=PfMCouleurFdR](A-##1) circle (\PfMRayonSchemaFdR) node{\ref{page-\thePfMMaquette-\ListeRouteBasse[##1]}};%
        }%
      }%
    }%
  \end{tikzpicture}%
}%

\NewDocumentCommand\RemplisFdR{m}{%
  \ifcsname \Roman{PfMMaquette}route#1\endcsname
  \expandafter\xdef\csname \Roman{PfMMaquette}route#1\endcsname{\csname \Roman{PfMMaquette}route#1\endcsname,\thePfMExo}%
%  Yes !
  \else
%  No !
  \expandafter\xdef\csname \Roman{PfMMaquette}route#1\endcsname{\thePfMExo}%
  \fi
  \immediate\write\@auxout{\noexpand\expandafter\gdef\noexpand\csname \Roman{PfMMaquette}FdR#1\endcsname{\csname \Roman{PfMMaquette}route#1\endcsname}}%
}%

\def\Relecture{}%

\NewDocumentEnvironment{exerciceFdR}{so}{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
  \IfBooleanTF{#1}{%
    \setKV[ClesExercices]{Numerote=false}%
  }{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
  \PfMAvantLesExercices%
  \ifboolKV[Boulot]{CorrigeSeul}{}{%
  \PfMChoixTitreSolution%
  \immediate\write\@auxout{\string\opcopy{\thePfMExo}{\Roman{PfMMaquette}-FdRTotalExo}}%
  % Creation des parcours
  \ifboolKV[ClesExercices]{Routes}{%
    \colorlet{PfMCadreFdR}{black}
    % Remise à zéro de conteneurs des parcours
    \setsepchar{,}%
    % \ifboolKV[ClesExercices]{Stop}{\xdef\PfMFooListeFdR{\useKV[ClesExercices]{Route},0}}{
    \xdef\PfMFooListeFdR{\useKV[ClesExercices]{Route}}
 %   % }%
    \readlist*\ListeFdR{\PfMFooListeFdR}%
    \foreachitem\compteur\in\ListeFdR{%
      \RemplisFdR{\ListeFdR[\compteurcnt]}%
    }%
  }{\colorlet{PfMCadreFdR}{gray!15}}
  \ifboolKV[ClesExercices]{Stops}{%
    \setsepchar{,}%
    % \ifboolKV[ClesExercices]{Stop}{\xdef\PfMFooListeFdR{\useKV[ClesExercices]{Route},0}}{
    \xdef\PfMFooListeFdR{stop}%
    % }%
    \readlist*\ListeFdR{\PfMFooListeFdR}%
    \foreachitem\compteur\in\ListeFdR{%
      \RemplisFdR{\ListeFdR[\compteurcnt]}%
    }%
  }{}%
  %
  \begin{tcolorbox}[%
    tikzFdR,
    label is label,
    label=page-\thePfMMaquette-\thePfMExo
    ]
    \ifboolKV[Boulot]{Dys}{\raggedright}{}%
  }%
  }%
}{%
  \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
        \PfMJusteAvantLaFinDesExercices%
  \end{tcolorbox}
  \PfMApresLesExercices%
}%
}%
}%

%CAN
\setsepchar[*]{,*/}%
\readlist*\ListeNoms{Aude/Elle/d'Aude/qu'Aude/elle,Bernard/Il/de Bernard/que Bernard/il,Céline/Elle/de Céline/que Céline/elle,Daniel/Il/de Daniel/que Daniel/il,\'Elise/Elle/d'\'Elise/qu'\'Elise/elle,Fabien/Il/de Fabien/que Fabien/il,Gérard/Il/de Gérard/que Gérard/il,Hélène/Elle/d'Hélène/qu'Hélène/elle,Ilies/Il/d'Ilies/qu'Ilies/il,Jasmine/Elle/de Jasmine/que Jasmine/elle,Kylian/Il/de Kylian/que Kylian/il,Laurent/Il/de Laurent/que Laurent/il,Mathilde/Elle/de Mathilde/que Mathilde/elle,Nina/Elle/de Nina/que Nina/elle,Octave/Il/d'Octave/qu'Octave/il,Philippe/Il/de Philippe/que Philippe/il,Joachim/Il/de Joachim/que Joachim/il,Thérèse/Elle/de Thérèse/que Thérèse/elle,Nawel/Elle/de Nawel/que Nawel/elle,Alexandre/Il/d'Alexandre/qu'Alexandre/il,Maxence/Il/de Maxence/que Maxence/il,Sophie/Elle/de Sophie/que Sophie/elle,Christophe/Il/de Christophe/que Christophe/il,Myriam/Elle/de Myriam/que Myriam/elle,Nathalie/Elle/de Nathalie/que Nathalie/elle,Sébastien/Il/de Sébastion/que Sébastien/il}%
\readlist*\ListeChersObjets{montre/une,collier/un,bague/une,pendentif/un}%
\readlist*\ListeSport{Football/du football/le football,Tennis/du tennis/le tennis,Basket/du basket/le basket,Athlétisme/de l'athlétisme/l'athlétisme,Natation/de la natation/la natation,Hand-ball/du hand-ball/le hand-ball,Volley-ball/du volley-ball/le volley-ball}
\setsepchar{,}%
\readlist*\ListePetitsObjets{bonbons,billes,biscuits,gommes,clous,vis,cahiers,trousses}%
\readlist*\ListeFruits{pommes,poires,abricots,cerises,fraises,framboises,noix,pêches,nectarines,myrtilles,oranges,mandarines,kiwis}%
\readlist*\ListeVariables{a,b,c,\ell,m,n,p,r,s,t,x,y,z}%

\makeatletter
\def\ExoCANWrite{%
  \setcounter{PfMAlea}{0}%
  \PfMChoixCorrection%
  \stepcounter{PfMExo}%
  \immediate\write\@auxout{%
    \string\opcopy{\thePfMExo}{TotalExo}%
  }%
  \@bsphack%
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-Ex\thePfMExo.can"%
  \let\do\@makeother\dospecials%
  \catcode`\^^M\active%
  \def\verbatim@processline{\immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}%
\def\endExoCANWrite{\immediate\closeout\verbatim@out\@esphack}%
\makeatother

\NewDocumentCommand\Complement{+m}{%
  \ifboolKV[Boulot]{CAN}{%
    \expandafter\xdef\csname CNReponse\endcsname{\noexpand #1}%
  }{%
    \begin{center}
      #1%
    \end{center}
  }%
}%

\NewDocumentCommand\EcartComplement{m}{%
  \rule{0mm}{#1}%
}%

\tcbset{%
  usercan/.style={%
    enhanced,
    frame hidden,
    colback=white,
    middle=24pt,
    overlay={% unbroken and first={%
      \draw[line width=2pt] (frame.north west)--(frame.north east);
      \draw[line width=2pt] (frame.south west)--(frame.south east);
    }
  }%
}%
\tcbset{%
  usercancor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\newlength\PfMEspaceItemPGCAN
\newlength\PfMEspaceTitreSujetPGCAN
\setlength{\PfMEspaceItemPGCAN}{0.5em}
\setlength{\PfMEspaceTitreSujetPGCAN}{12pt}

\makeatletter
\NewDocumentCommand\TikzCAN{}{%
  \begin{tcolorbox}[usercan]%
    {\sc Nom :} \PfCTBstrut\pointilles[0.35\linewidth]\hfill\textbf{\sc Prénom :} \pointilles[0.35\linewidth]
    \par\bigskip\par
    \textbf{\sc Classe :} \pointilles[0.35\linewidth]\hfill
    \begin{minipage}{0.3\linewidth}
      \begin{tcolorbox}
        \textbf{\sc Score :} \hfill\textbf{/\@ifundefined{Op@TotalExo}{Recompilez}{\opexport{TotalExo}{\TotalExo}\TotalExo}}
      \end{tcolorbox}
    \end{minipage}
    \tcblower
    \begin{itemize}
    \item[\faCheck] \textbf{Durée : \useKV[CAN]{Duree} minutes.}\\[\PfMEspaceItemPGCAN]
    \item[\faCheck] \textit{L'épreuve comporte \@ifundefined{Op@TotalExo}{Recompilez}{\opexport{TotalExo}{\TotalExo}\TotalExo{} question\ifnum\TotalExo=1\else\relax s\fi.}}\\[\PfMEspaceItemPGCAN]
    \item[\faCheck] \textit{L'usage de la calculatrice et du brouillon sont interdits. Il n'est pas permis d'écrire des calculs intermédiaires.} 
    \end{itemize}
    \vspace*{\PfMEspaceTitreSujetPGCAN}
  \end{tcolorbox}%
  \begin{center}
    \Large Sujet \useKV[CAN]{Niveau}\hspace{0.15\linewidth}\useKV[CAN]{Date}
  \end{center}

  \bigskip
  
  \begin{center}
      \ifboolKV[CAN]{Logos}{\useKV[CAN]{Logo}}{}%
  \end{center}
  \clearpage%
}%
%\makeatother

%\makeatletter
\NewDocumentCommand\TikzCANCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[CAN]{#1}%
  \begin{tcolorbox}[usercancor]%
    \begin{center}
      \Large\sffamily Course aux nombres (Correction)
    \end{center}
    \hfill\useKV[CAN]{Niveau}%
  \end{tcolorbox}%
}
%%% FdR %%%
\tcbset{%
  userfdr/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\tcbset{%
  userfdrcor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\NewDocumentCommand\TikzFdR{}{%
  \begin{tcolorbox}[userfdr]%
    \Large\sffamily \useKV[FdR]{Theme}\hfill\useKV[FdR]{Niveau} \useKV[FdR]{Classe}%
    \par{\tiny\useKV[FdR]{Code}}\hfill{\scriptsize\useKV[FdR]{Date}}%
  \end{tcolorbox}%
}

\NewDocumentCommand\TikzFdRCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[FdR]{#1}%
  \begin{tcolorbox}[userfdrcor]%
    \Large\sffamily \useKV[FdR]{Theme} (Correction) \hfill\useKV[FdR]{Niveau} \useKV[FdR]{Classe}
    \par{\tiny\useKV[FdR]{Code}}\hfill{\scriptsize\useKV[FdR]{Date}}
  \end{tcolorbox}%
}

\tcbset{%
  tikzFdR/.style={%
    before skip=1em,
    enhanced,
    breakable,
    colback=PfMColbackFdR,
    colframe=PfMCadreFdR,
    overlay unbroken and first={%
      \node[%
      name=A,
      fill=white,
      anchor=west,
      xshift=10pt,
      ] at (frame.north west){\bfseries\sffamily \useKV[FdR]{NomExercice} \thePfMExo\ifboolKV[ClesExercices]{AffichageTitre}{ : \useKV[ClesExercices]{Titre}}{}};
      %%
      \useKV[ClesExercices]{Ajout}%
      %%
      \PfMAffichageLogos
      %%
      \PfMAffichageCompetencesTravaillees%
      %%
      \PfMAffichageSource%
      %
      \PfMLienVersSolution%
      %
      \PfMLienVersEntrainement%
    }%
  }%
}%
%% Fin FdR %%%

%% Parcours

%\makeatletter
\NewDocumentCommand\AfficheParcours{om}{%
  \useKVdefault[SchemaParcours]%
  \setKV[SchemaParcours]{#1}%
  \setlength{\PfMLargeurSchemaParcours}{\useKV[SchemaParcours]{Largeur}}%
  \colorlet{PfMCouleurSP}{\useKV[SchemaParcours]{Couleur}}%
  \@ifundefined{Op@\Roman{PfMMaquette}-ParcoursTotalExo}{Recompilez pour obtenir le parcours.}%
  {%
    \opexport{\Roman{PfMMaquette}-ParcoursTotalExo}{\ParcoursTotalExo}%
%    Total Exo : \ParcoursTotalExo
    \setsepchar{,}\ignoreemptyitems%
    \readlist*\ListeExercicesPA{\csname \Roman{PfMMaquette}Parcours#2\endcsname}
    \reademptyitems%
    \xdef\PfMFooTestA{\ListeExercicesPA[1]}%
    \ifnum\ListeExercicesPAlen>1\relax%
      \xintFor* ##1 in{\xintSeq{2}{\ListeExercicesPAlen}}\do{%
        \xdef\PfMFooTestA{\PfMFooTestA,\ListeExercicesPA[##1]}%
      }%
    \fi%
    \ifboolKV[Parcours]{Plan}{%
      \BuildParcoursPlan{\ParcoursTotalExo}{\PfMFooTestA}%
    }{%
      \ifboolKV[Parcours]{Vertical}{%
        \BuildParcoursTikzV{\ParcoursTotalExo}{\PfMFooTestA}%
      }{%
        \BuildParcoursTikz{\ParcoursTotalExo}{\PfMFooTestA}%
      }%
    }%
  }%
}%
%\makeatother

\NewDocumentCommand\BuildParcoursPlan{mm}{%
  \setsepchar{,}%
  \readlist*\ListeRetiens{#2}%
  \begin{enumerate}
    \foreachitem\compteur\in\ListeRetiens{%
    \item[$\square$] Exercice \ref{page-\thePfMMaquette-\ListeRetiens[\compteurcnt]}%
    }%
  \end{enumerate}
}%

\NewDocumentCommand\BuildParcoursTikzV{mm}{%
  \setsepchar{,}%
  \readlist*\ListeRetiens{#2}%
    \begin{tikzpicture}[remember picture,overlay]
      % On place les points%anchor=base,baseline[xshift=-1cm,yshift=-4cm]
      \coordinate (A-1) at (0,0);%
      \xintFor* ##1 in{\xintSeq{2}{#1}}\do{%
        \coordinate[yshift=-1cm] (A-##1) at (A-\fpeval{##1-1});%
      }%
      \foreach\i in{2,...,#1}{%
        \draw[line width=1pt] (A-\fpeval{\i-1}) -- (A-\i);%
      }%
      %
      \draw[line width=1pt,>=latex,->] (A-#1)--(A-\fpeval{#1+1});
      %
      \xintFor* ##1 in{\xintSeq{1}{#1}}\do{%
        \draw[fill=white,dashed](A-##1) circle (2.5mm) node{##1};%
      }%
      \foreachitem\compteur\in\ListeRetiens{%
        \draw[fill=PfMCouleurSP](A-\ListeRetiens[\compteurcnt]) circle (2.5mm) node{\ref{page-\thePfMMaquette-\ListeRetiens[\compteurcnt]}};%
      }%
    \end{tikzpicture}%
}%

\NewDocumentCommand\BuildParcoursTikz{mm}{%
  \setsepchar{,}%
  \readlist*\ListeRetiens{#2}%
  \begin{tikzpicture}[anchor=center,baseline=-1.25mm]
    % On place les points
    \Orientation=1\relax
    \ifboolKV[Parcours]{Court}{%
      \TotalParcoursTikz=\ListeRetienslen%
    }{%
      \TotalParcoursTikz=#1%
    }%
    \coordinate[anchor=base,baseline=-1.25mm] (A-1) at (0,0);%
    \xintFor* ##1 in{\xintSeq{2}{\fpeval{\the\TotalParcoursTikz+1}}}\do{%
      \modulo{##1}{\useKV[SchemaParcours]{Colonnes}}%
      \ifnum\remainder=0\relax%
      \Orientation=\numexpr\Orientation*(-1)\relax%
      \coordinate[yshift=-1cm] (A-##1) at (A-\fpeval{##1-1});%
      \else%
      \coordinate[xshift=\the\Orientation*\PfMLargeurSchemaParcours] (A-##1) at (A-\fpeval{##1-1});%
      \fi%
    }%
    \foreach\i in{1,...,\the\TotalParcoursTikz}{%
      \draw[line width=1pt] (A-\i) -- (A-\fpeval{\i+1});%
    }%
%    %
    \draw[line width=1pt,>=latex,->] (A-\the\TotalParcoursTikz)--(A-\fpeval{\the\TotalParcoursTikz+1});
%    %
    \ifboolKV[Parcours]{Court}{%
      \foreachitem\compteur\in\ListeRetiens{%
        \draw[fill=PfMCouleurSP](A-\compteurcnt) circle (2.5mm) node{\ref{page-\thePfMMaquette-\ListeRetiens[\compteurcnt]}};%
      }%
    }{%
      \xintFor* ##1 in{\xintSeq{1}{\the\TotalParcoursTikz}}\do{%
        \draw[fill=white,dashed](A-##1) circle (2.5mm) node{##1};%
      }%
      \foreachitem\compteur\in\ListeRetiens{%
        \draw[fill=PfMCouleurSP](A-\ListeRetiens[\compteurcnt]) circle (2.5mm) node{\ref{page-\thePfMMaquette-\ListeRetiens[\compteurcnt]}};%
      }%
    }%
  \end{tikzpicture}%
}%

\NewDocumentCommand\RemplisParcours{m}{%
  \ifcsname \Roman{PfMMaquette}trajet#1\endcsname
  \expandafter\xdef\csname \Roman{PfMMaquette}trajet#1\endcsname{\csname \Roman{PfMMaquette}trajet#1\endcsname,\thePfMExo}%
%  Yes !
  \else
%  No !
  \expandafter\xdef\csname \Roman{PfMMaquette}trajet#1\endcsname{\thePfMExo}%
  \fi
  \immediate\write\@auxout{\noexpand\expandafter\gdef\noexpand\csname \Roman{PfMMaquette}Parcours#1\endcsname{\csname \Roman{PfMMaquette}trajet#1\endcsname}}%
}%

\def\exerciceParcoursPerso{%
  \stepcounter{PfMExo}%
  \PfMChoixCorrection%
  \@bsphack%
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-PPEx\thePfMExo.tex" %
  \immediate\write\verbatim@out{\string\begin{exercice}}
  \let\do\@makeother\dospecials%
  \catcode`\^^M\active%
  \def\verbatim@processline{%
    \immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}%

\def\endexerciceParcoursPerso{\immediate\write\verbatim@out{\string\end{exercice}}\immediate\closeout\verbatim@out\@esphack}%
  
\NewDocumentEnvironment{exerciceParcours}{so}{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
  \IfBooleanTF{#1}{%
    \setKV[ClesExercices]{Numerote=false}%
  }{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
  \PfMAvantLesExercices%
  \ifboolKV[Boulot]{CorrigeSeul}{}{%
  \PfMChoixTitreSolution%
  \immediate\write\@auxout{\string\opcopy{\thePfMExo}{\Roman{PfMMaquette}-ParcoursTotalExo}}%
  % Creation des parcours
  \ifboolKV[ClesExercices]{Parcours}{%
      % Remise à zéro de conteneurs des parcours
      \setsepchar{,}%
    \xdef\PfMFooListeParcours{\useKV[ClesExercices]{Trajet}}
    \readlist*\ListeParcours{\PfMFooListeParcours}%
    \foreachitem\compteur\in\ListeParcours{%
      \RemplisParcours{\ListeParcours[\compteurcnt]}%
    }%
  }{}%
  %
  \begin{tcolorbox}[%
    tikzparcours,
    label is label,
    label=page-\thePfMMaquette-\thePfMExo
    ]
    \ifboolKV[Boulot]{Dys}{\raggedright}{}%
  }%
  }%
}{%
  \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
        \PfMJusteAvantLaFinDesExercices%
  \end{tcolorbox}
  \PfMApresLesExercices%
}%
}%
}%

%%%%%%%%%%%%%%%%%%%%%%%
% Pour encart
%%%%%%%%%%%%%%%%%%%%%%

\newtcolorbox{PfMtcbEncart}{%
  before skip=1em,
    enhanced,
    breakable,
    frame hidden,
    height=\useKV[ClesExercices]{Encart},
    colback=PfMFondEncart,
    left=10pt,
%    % colframe=PfMCadreEncart,
    overlay unbroken and first={%
      \coordinate[xshift=10*\kvtcb@leftlower] (B) at (frame.north west);
      \coordinate[xshift=-10*\kvtcb@leftlower] (C) at (frame.south east);
      \draw[PfMCadreEncart,line width=1pt] (frame.south east)--(frame.south west)--(frame.north west)--(B);
      \node[%
      name=A,
      fill=PfMFondEncart,
      anchor=west,
      xshift=\kvtcb@leftlower,
      ] at (frame.north west){\bfseries\sffamily\PfMTexteEncart};
      %% 
    }%
  }%

% From setspace.sty
\NewDocumentCommand\PfMSetStretch{}{%
  \ifboolKV[ClesExercices]{Doublespacing}{%
    \setstretch {1.667}%  default
    \ifx\@ptsize\@undefined\else
      \ifcase \@ptsize \relax% 10pt
        \setstretch {1.667}%
      \or % 11pt
        \setstretch {1.618}%
      \or % 12pt
        \setstretch {1.655}%
      \fi
    \fi
  }{%
    \ifboolKV[ClesExercices]{Onehalfspacing}{%
      \setstretch{1.25}%  default
      \ifx\@ptsize\@undefined\else
        \ifcase \@ptsize \relax % 10pt
          \setstretch {1.25}%
        \or % 11pt
          \setstretch {1.213}%
        \or % 12pt
          \setstretch {1.241}%
        \fi%
      \fi%
    }{}%
  }%
}%

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\NewDocumentCommand\PfMScore{m}{%
  \immediate\write\@auxout{%
    \string\opadd*{#1}{ScoreTotal\thePfMMaquette}{ScoreTotal\thePfMMaquette}%
  }%
  \num{#1} pt\xintifboolexpr{#1>2 || #1==2}{s}{}%
}%

\def\PfMMPGrilleCode{%
  PapierLargeur=floor(\mpdim{\linewidth}/(5mm));
  color PapierCouleur;
  PapierCouleur=0.8white;
  %
  vardef Papier(expr nb,score)=
    path horizon,verticon;
    horizon=(0,0)--(PapierLargeur*5mm,0);
    verticon=(0,0)--(0,abs(nb)*5mm);
    picture Papiers;
    Papiers=image(
      drawoptions(withcolor PapierCouleur);
      for k=0 upto PapierLargeur:
        draw verticon shifted((k*5mm,0));
      endfor;
      for k=0 upto abs(nb):
        draw horizon shifted((0,k*5mm));
      endfor;
      drawoptions();
      if nb<0:
        path cc,cd,ce;
        cd=(unitsquare xscaled (3*5mm) yscaled (abs(nb)*5mm)) shifted(5mm*(PapierLargeur-3,0));
        ce=(unitsquare scaled (2*5mm)) shifted(5mm*(PapierLargeur-2.5,1));
        cc=(unitsquare xscaled (6*5mm) yscaled (2*5mm)) shifted(5mm*(PapierLargeur-10,1));
        fill cd withcolor PapierCouleur;
        fill ce withcolor white;
        fill cc withcolor white;
        %drawoptions(withpen pencircle scaled 1);
        draw ce;
        draw cc;
        draw cd;
        draw polygone((0,0),(PapierLargeur*5mm,0),5mm*(PapierLargeur,abs(nb)),5mm*(0,abs(nb)));
        if score>0:
          label.bot(TEX("\PfMScore{"&decimal(score)&"}"),5mm*(PapierLargeur-1.5,1));
        fi;
      fi;
    );
    Papiers
  enddef;
}%

\def\PfMPapierCinqCinq#1#2{%
  \begin{center}
  \ifluatex%
    \mplibforcehmode%
    \begin{mplibcode}%
      \PfMMPGrilleCode
      trace Papier(#1,#2);
    \end{mplibcode}%
  \else%
    \begin{mpost}[mpsettings={\PfMMPGrilleCode}]
      trace Papier(#1,#2);
    \end{mpost}%
  \fi%
  \end{center}
}%

\def\PfMMPSeyesCode{%
  u:=\useKV[ClesExercices]{EchelleSeyes}*1mm;
  PapierLargeur=floor(\mpdim{\linewidth}/(u));
  color PapierCouleur;
  PapierCouleur=0.8white;%\useKV[Papiers]{Couleur};
  vardef Seyes(expr nb,score)=
    path horizon,verticon;
    horizon=(0,0)--u*(PapierLargeur,0);
    verticon=(0,0)--u*(0,abs(nb));
    picture PapierSeyes;
    PapierSeyes=image(
      drawoptions(withcolor PapierCouleur);
      for k=0 upto (PapierLargeur):
        draw verticon shifted((k*u,0));
      endfor;
      for k=0 step 0.25 until abs(nb):
        draw horizon shifted((0,k*u)) withpen pencircle scaled 0.5;
      endfor;
      for k=0 upto abs(nb):
        draw horizon shifted((0,k*u)) withpen pencircle scaled 1.25;
      endfor;
      drawoptions();
      if nb<0:
        path cc,cd,ce;
        cd=(unitsquare xscaled (2*u) yscaled (abs(nb)*u)) shifted(u*(PapierLargeur-2,0));
        ce=(unitsquare scaled (1*u)) shifted(u*(PapierLargeur-1.5,1));
        cc=(unitsquare xscaled (4*u) yscaled (1*u)) shifted(u*(PapierLargeur-7,1));
        fill cd withcolor PapierCouleur;
        fill ce withcolor white;
        fill cc withcolor white;
        draw cc;
        draw cd;
        draw ce;
        draw polygone((0,0),(PapierLargeur*u,0),u*(PapierLargeur,abs(nb)),u*(0,abs(nb)));
        if score>0:
          label.bot(TEX("\PfMScore{"&decimal(score)&"}"),u*(PapierLargeur-1,1));
        fi;
      fi;  
    );
    PapierSeyes
  enddef;
}%

\def\PfMPapierSeyes#1#2{%
  \begin{center}
    \ifluatex%
      \mplibforcehmode%
      \begin{mplibcode}%
        \PfMMPSeyesCode
        trace Seyes(#1,#2);
      \end{mplibcode}%
    \else%
      \begin{mpost}[mpsettings={\PfMMPSeyesCode}]%
        trace Seyes(#1,#2);
      \end{mpost}
    \fi%
  \end{center}
}%

\NewDocumentCommand\PfMJusteAvantLaFinDesExercices{}{%
  \ifboolKV[ClesExercices]{Interieur}{%
    \ifboolKV[ClesExercices]{Ligne}{%
      \vspace*{\PfMEspaceAvantLignes}\par%
      \PfMSetStretch%
      \PfMLignespointilles{\useKV[ClesExercices]{Lignes}}%
      \par\vspace*{\PfMEspaceApresLignes}\par%
    }{}%
    \par%
    \ifboolKV[ClesExercices]{Cadres}{%
      \begin{PfMtcbEncart}%
        % 
      \end{PfMtcbEncart}%
    }{}%
    \ifboolKV[ClesExercices]{Grilles}{%
      \ifboolKV[ClesExercices]{Cinq}{%
        \PfMPapierCinqCinq{\useKV[ClesExercices]{CinqCinq}}{\useKV[ClesExercices]{Score}}%
      }{}%
      \ifboolKV[ClesExercices]{Huit}{%
        \PfMPapierSeyes{\useKV[ClesExercices]{Seyes}}{\useKV[ClesExercices]{Score}}%
      }{}%
    }{}%
  }{}%
}%

\NewDocumentCommand\PfMApresLesExercices{}{%
    \ifboolKV[ClesExercices]{Interieur}{}{%
    \ifboolKV[ClesExercices]{Ligne}{%
      \vspace*{\PfMEspaceAvantLignes}%
      \PfMSetStretch\PfMLignespointilles{\useKV[ClesExercices]{Lignes}}%
      \par\vspace*{\PfMEspaceApresLignes}\par%
    }{}%
    \par%
    \ifboolKV[ClesExercices]{Cadres}{%
      \begin{PfMtcbEncart}%
        % 
      \end{PfMtcbEncart}%
    }{}%
    \ifboolKV[ClesExercices]{Grilles}{%
      \ifboolKV[ClesExercices]{Cinq}{%
        \PfMPapierCinqCinq{\useKV[ClesExercices]{CinqCinq}}{\useKV[ClesExercices]{Score}}%
      }{}%
      \ifboolKV[ClesExercices]{Huit}{%
        \PfMPapierSeyes{\useKV[ClesExercices]{Seyes}}{\useKV[ClesExercices]{Score}}%
      }{}%
    }{}
  }%
  \ifboolKV[ClesExercices]{Profile}{\PfMshowitems}{}%
  \ifboolKV[ClesExercices]{ACompleter}{%
    \IfHookExistsTF{env/center/begin}{\RemoveFromHook{env/center/begin}[*]}{}%
    \IfHookExistsTF{env/center/end}{\RemoveFromHook{env/center/end}[*]}{}%
    \IfHookExistsTF{env/itemize/begin}{\RemoveFromHook{env/itemize/begin}[*]}{}%
    \IfHookExistsTF{env/itemize/end}{\RemoveFromHook{env/itemize/end}[*]}{}%
    \IfHookExistsTF{env/description/begin}{\RemoveFromHook{env/description/begin}[*]}{}%
    \IfHookExistsTF{env/description/end}{\RemoveFromHook{env/description/end}[*]}{}%
  }{}%
}%

\NewDocumentCommand\PfMAffichageTitreSolution{}{%
  %Affichage du titre de la solution :) Le compteur PfMExoSol vaut \thePfMExoSol
  \expandafter\xdef\csname PfMEcrireTitreSol\endcsname{\csname PfMTSol\Roman{PfMExoSol}\endcsname}%
  \ifx\bla\PfMEcrireTitreSol\bla%
  \else
    ~:~\PfMEcrireTitreSol%
  \fi%
}%

\NewDocumentCommand\PfMChoixTitreSolution{}{%
  \ifboolKV[ClesExercices]{TitreSol}{%
    %J'ai un titre à mettre à la solution.\par LE compteur PfMExo vaut \thePfMExo
    \expandafter\xdef\csname PfMTSol\Roman{PfMExo}\endcsname{\useKV[ClesExercices]{TitreSolution}}}{%
    %Je n'ai pas de titre à mettre à la solution.\par%
    \expandafter\xdef\csname PfMTSol\Roman{PfMExo}\endcsname{}%
  }%
}%

\NewDocumentCommand\PfMChoixNomCorrection{}{%
  \expandafter\xdef\csname PfMTNomSol\Roman{PfMExo}\endcsname{\useKV[ClesExercices]{TitreCorrige}}
}%

\NewDocumentCommand\PfMChoixHideItemSolution{}{%
  \ifboolKV[ClesExercices]{Profile}{%
 %   J'ai un élève à profil : Je dois me souvenir que la correction doit être profilée. Le compteur PfMExo vaut \thePfMExo
    \expandafter\xdef\csname PfMHideSol\Roman{PfMExo}\endcsname{A}}{%
    %Je n'ai pas d'élève à profil
    \expandafter\xdef\csname PfMHideSol\Roman{PfMExo}\endcsname{}%
  }%
}%

\NewDocumentCommand\PfMAffichageHideItemSolution{}{%
  \expandafter\xdef\csname PfMEcrireHideItemSol\endcsname{\csname PfMHideSol\Roman{PfMExoSol}\endcsname}%
  \ifx\bla\PfMEcrireHideItemSol\bla%
%    \textcolor{blue}{Normalement, pas de hide car clé profile pas active.}
  \else
%    \textcolor{red}{Hide Item dans les solutions}
    \PfMhideitems%
  \fi%
}%

\NewDocumentCommand\PfMAvantLesExercices{}{%
  \ifboolKV[ClesExercices]{AvecIndications}{\setcounter{RetiensIndic}{1}}{}%
  \ifboolKV[ClesExercices]{Profile}{\PfMhideitems}{}%
  \refstepcounter{PfMSection}%
  \PfMChoixCorrection%
  \PfMChoixEntrainement%
  \refstepcounter{PfMExo}%
  \PfMChoixNomCorrection%
  \ifboolKV[ClesExercices]{ACompleter}{%
    \let\oldenumerate\enumerate%
    \let\oldendenumerate\endenumerate%
    \let\enumerate\autoenumerate%
    \let\endenumerate\endautoenumerate%
    \AddToHook{env/center/begin}[Bcenter]{\let\item\olditem}%
    \AddToHook{env/center/end}[Ecenter]{\let\item\litem}%
    \AddToHook{env/description/begin}[Bdescription]{\let\item\olditem}%
    \AddToHook{env/description/end}[Edescription]{\let\item\litem}%
    \AddToHook{env/itemize/begin}[Bitemize]{\let\item\olditem}%
    \AddToHook{env/itemize/end}[Eitemize]{\let\item\litem}%
  }{}%
}%

\NewDocumentEnvironment{exerciceFiche}{so}{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
    \IfBooleanTF{#1}{%
      \setKV[ClesExercices]{Numerote=false}%
    }{}%
    \colorlet{ColExoFiche}{\useKV[ClesExercices]{Background}}%
    \colorlet{PfMCadreFiche}{\useKV[ClesExercices]{Cadre}}%
    \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
    \PfMAvantLesExercices%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
      \PfMChoixTitreSolution%
      \PfMChoixHideItemSolution%
      \begin{tcolorbox}[%
        tikzfiche,
        label is label,
        label=page-\thePfMMaquette-\thePfMExo
        ]
        \ifboolKV[Boulot]{Dys}{\raggedright}{}%
      }%
    }%
  }{%
    \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
      \ifboolKV[Boulot]{CorrigeSeul}{}{%
        \PfMJusteAvantLaFinDesExercices%
        \end{tcolorbox}%
        \PfMApresLesExercices%
      }%
    }%
}%

% \makeatletter
\NewDocumentCommand\TikzOlympiadesAPMEP{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[OlympiadesAPMEP]{#1}%
  \begin{tcolorbox}[colback=colLogo]
    \begin{Dispo}*{\normalsize\logoapmep{\scale@logo}}
      \Large\sffamily \useKV[OlympiadesAPMEP]{Theme}

      (Sujet)
    \end{Dispo}
  \end{tcolorbox}%
}%

\NewDocumentCommand\TikzOlympiadesAPMEPCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[OlympiadesAPMEP]{#1}%
  \begin{tcolorbox}[colback=colLogo]
    \begin{Dispo}*{\normalsize\logoapmep{\scale@logo}}
      \Large\sffamily \useKV[OlympiadesAPMEP]{Theme}

      (Correction)%
    \end{Dispo}
  \end{tcolorbox}%
}%
%\makeatother

\NewDocumentEnvironment{exerciceOlympiadesAPMEP}{so}{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
    \IfBooleanTF{#1}{%
      \setKV[ClesExercices]{Numerote=false}%
    }{}%
    \colorlet{ColExoFiche}{\useKV[ClesExercices]{Background}}%
    \PfMAvantLesExercices%
%    \refstepcounter{PfMSection}%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
    \PfMChoixTitreSolution%
    \PfMChoixHideItemSolution%
    \begin{tcolorbox}[%
      tikzOlympiadesAPMEP,
      label is label,
      label=page-\thePfMMaquette-\thePfMExo
      ]
      \ifboolKV[Boulot]{Dys}{\raggedright}{}%
      }%
    }%
  }{%
    \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
      \ifboolKV[Boulot]{CorrigeSeul}{}{%
        \PfMJusteAvantLaFinDesExercices%
        \end{tcolorbox}%
        \PfMApresLesExercices%
      }%
    }%
}%

\NewDocumentEnvironment{exerciceDS}{so}{%
  \setcounter{PfMAlea}{0}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
    \IfBooleanTF{#1}{%
      \setKV[ClesExercices]{Numerote=false}%
    }{}%
    \PfMAvantLesExercices
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
      \PfMChoixTitreSolution%
      \immediate\write\@auxout{%
        \string\opcopy{\thePfMExo}{TotalExo}%
      }
      \ifboolKV[ClesExercices]{BaremeTotal}{%
        \immediate\write\@auxout{%
          \string\opcopy{0}{total\the\c@PfMSection-\the\c@PfMExo}%
        }}{}
      \begin{tcolorbox}[%
        tikzds,
        label is label,
        label=page-\thePfMMaquette-\thePfMExo
        ]
        \ifboolKV[Boulot]{Dys}{\raggedright}{}%
      }%
    }%
}{%
  \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
        \PfMJusteAvantLaFinDesExercices%
      \end{tcolorbox}%
      \PfMApresLesExercices%
    }%
  }%
}%

\NewDocumentEnvironment{ExerciceRecapBrevet}{so}{%
  \setcounter{PfMAlea}{0}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \IfBooleanTF{#1}{%
    \setKV[ClesExercices]{Numerote=false}%
  }{}%
  \colorlet{ColExoFiche}{\useKV[ClesExercices]{Background}}%
  \colorlet{PfMCadreFiche}{\useKV[ClesExercices]{Cadre}}%
  \refstepcounter{PfMSection}%
  \PfMChoixCorrection%
  \refstepcounter{PfMExo}%
  \PfMChoixTitreSolution%
  \ifboolKV[ClesExercices]{BaremeTotal}{%
    \immediate\write\@auxout{%
      \string\opcopy{0}{total\the\c@PfMSection-\the\c@PfMExo}%
    }%
  }{}%
  \begin{tcolorbox}[%
  tikzrecapbrevet,
  label is label,
  label=page-\thePfMMaquette-\thePfMExo
  ]
  \ifboolKV[Boulot]{Dys}{\raggedright}{}%
  }{%
    \PfMJusteAvantLaFinDesExercices%
  \end{tcolorbox}
  \PfMApresLesExercices%
}%

\makeatother

%%% Recap Brevet
%%% Style Brevet
\tcbset{%
  userbrevet/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\tcbset{%
  userbrevetcor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

% Fiche Exercice Brevet
\newcommand\TikzRecapBrevet{%
\begin{tcolorbox}[userbrevet]%
  \Large\sffamily \useKV[RecapBrevet]{Theme}%
  \par{\tiny\useKV[RecapBrevet]{Code}}\hfill{\scriptsize\useKV[RecapBrevet]{Date}}%
  \end{tcolorbox}%
}%

\newcommand\TikzRecapBrevetCor[1]{%
  \clearpage
  \setKV[RecapBrevet]{#1}%
  \begin{tcolorbox}[userbrevetcor]%
    \Large\sffamily \useKV[RecapBrevet]{Theme} (Correction)
    \par{\tiny\useKV[RecapBrevet]{Code}}\hfill{\scriptsize\useKV[RecapBrevet]{Date}}
  \end{tcolorbox}%
}

\makeatletter
\tcbset{%
  tikzrecapbrevet/.style={%
    before skip=1em,%
    enhanced,%
    breakable,%
    colback=white,%
    colframe=PfMCadreFiche,%
    overlay unbroken and first={%
      \node[%
      name=A,%
      fill=white,%
      anchor=west,%
      xshift=10pt,%
      ] at (frame.north west){\bfseries\sffamily \useKV[Fiche]{NomExercice} \thePfMExo\ifboolKV[ClesExercices]{AffichageTitre}{ : \useKV[ClesExercices]{Titre}}{}};%
      %%
      \ifboolKV[ClesExercices]{BaremeTotal}{\node[%
      fill=white,%
      anchor=east,%
      xshift=-10pt,%
      text=black,%
      font=\bfseries%
      ]
      at (frame.north east)%
      {\footnotesize\sffamily \total{\the\c@PfMSection-\the\c@PfMExo}};%
      }{}%
      \useKV[ClesExercices]{Ajout}%
    }%
  }%
}%
\makeatother
%% PDT
\tcbset{%
  tikzpdt/.style={%
    top=\ifboolKV[ClesExercices]{PasTitre}{0mm}{2mm},bottom=0mm,left=0mm,right=0mm,%
    before skip=1em,
    enhanced,
    breakable,
    colback=white,
    colframe=blue!50,
    remember,
    overlay unbroken and first={%
      \coordinate[xshift=2pt,yshift=-2pt] (NO-\thePfMExo) at (frame.north west);%
      \coordinate[xshift=-2pt,yshift=-2pt] (NE-\thePfMExo) at (frame.north east);%
      \coordinate[xshift=-2pt,yshift=2pt] (SE-\thePfMExo) at (frame.south east);%
      \coordinate[xshift=2pt,yshift=2pt] (SO-\thePfMExo) at (frame.south west);%
      \coordinate (N-\thePfMExo) at (frame.north);
      \coordinate (S-\thePfMExo) at (frame.south);
      \coordinate (E-\thePfMExo) at (frame.east);
      \coordinate (O-\thePfMExo) at (frame.west);
      \ifboolKV[ClesExercices]{PasTitre}{%
        \coordinate[xshift=10pt] (A) at (frame.north west);
      }{%
        \node[%
        name=A,
        fill=white,
        anchor=west,
        xshift=10pt,
        ] at (frame.north west){\bfseries\sffamily \useKV[PdT]{NomExercice} \thePfMExo\ifboolKV[ClesExercices]{AffichageTitre}{ : \useKV[ClesExercices]{Titre}}{}};
      }
      %%
      \useKV[ClesExercices]{Ajout}%
      %% 
      \PfMAffichageLogos%
      %
      \PfMAffichageCompetencesTravaillees%
      %
      \PfMAffichageSource%
      %
      \PfMLienVersSolution%
    }%
  }%
}%

\tcbset{%
  userpdt/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\tcbset{%
  userpdtcor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\NewDocumentCommand\TikzPdT{}{%
  \begin{tcolorbox}[userpdt]%
    \Large\sffamily \useKV[PdT]{Theme}\hfill\useKV[PdT]{Niveau} \useKV[PdT]{Classe}%
    \par{\tiny\useKV[PdT]{Code}}\hfill{\scriptsize\useKV[PdT]{Date}}%
  \end{tcolorbox}%
}

\NewDocumentCommand\TikzPdTCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[PdT]{#1}%
  \begin{tcolorbox}[userpdtcor]%
    \Large\sffamily \useKV[PdT]{Theme} (Correction) \hfill\useKV[PdT]{Niveau} \useKV[PdT]{Classe}
    \par{\tiny\useKV[PdT]{Code}}\hfill{\scriptsize\useKV[PdT]{Date}}
  \end{tcolorbox}%
}

\newenvironment{exercicePdT}[1][]{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#1}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
  \refstepcounter{PfMSection}%
  \PfMChoixCorrection%
  \refstepcounter{PfMExo}%
  \PfMChoixTitreSolution%
  \tcolorbox[%
  tikzpdt,
  label is label,
  label=page-\thePfMMaquette-\thePfMExo
  ]%
  \ifboolKV[Boulot]{Dys}{\raggedright}{}%
}{\endtcolorbox%
}

\newenvironment{SOS}[1][]{%
  \stepcounter{PfMSOS}%
  \tcolorbox[%
  enhanced,
  remember,%
  tikzsos,
  overlay unbroken and first={%
    \coordinate[xshift=2pt,yshift=-2pt] (SOS-NO-\thePfMSOS) at (frame.north west);%
    \coordinate[xshift=-2pt,yshift=-2pt] (SOS-NE-\thePfMSOS) at (frame.north east);%
    \coordinate[xshift=-2pt,yshift=2pt] (SOS-SE-\thePfMSOS) at (frame.south east);%
    \coordinate[xshift=2pt,yshift=2pt] (SOS-SO-\thePfMSOS) at (frame.south west);%
    \coordinate (SOS-N-\thePfMSOS) at (frame.north);
    \coordinate (SOS-S-\thePfMSOS) at (frame.south);
    \coordinate (SOS-E-\thePfMSOS) at (frame.east);
    \coordinate (SOS-O-\thePfMSOS) at (frame.west);
  }%
  ]%
}{\endtcolorbox%
}

\tikzstyle{cheminPdT}=[-stealth]

\NewDocumentCommand\CheminVrai{m}{%
  \setsepchar[*]{,*/}%
  \readlist*\ListeCheminVrai{#1}%
  \setsepchar{,}%
  \begin{tikzpicture}[remember picture,overlay]%
    \foreachitem\compteur\in\ListeCheminVrai{%
      \draw[cheminPdT] (\ListeCheminVrai[\compteurcnt,1]) to node[midway]{\Large \RKbigsmile}(\ListeCheminVrai[\compteurcnt,2]);%
    }%
  \end{tikzpicture}%
}%

\NewDocumentCommand\CheminNeutre{m}{%
  \setsepchar[*]{,*/}%
  \readlist*\ListeCheminVrai{#1}%
  \setsepchar{,}%
  \begin{tikzpicture}[remember picture,overlay]%
    \foreachitem\compteur\in\ListeCheminVrai{%
      \draw[cheminPdT] (\ListeCheminVrai[\compteurcnt,1]) to (\ListeCheminVrai[\compteurcnt,2]);%
    }%
  \end{tikzpicture}%
}%

\NewDocumentCommand\CheminFaux{m}{%
  \setsepchar[*]{,*/}%
  \readlist*\ListeCheminVrai{#1}%
  \setsepchar{,}%
  \begin{tikzpicture}[remember picture,overlay]%
    \foreachitem\compteur\in\ListeCheminVrai{%
      \draw[cheminPdT] (\ListeCheminVrai[\compteurcnt,1]) to node[midway]{\Large \RKdevilish}(\ListeCheminVrai[\compteurcnt,2]);%
    }%
  \end{tikzpicture}%
}%

\tcbset{%
  tikzsos/.style={%
    left=0pt,right=0pt,top=0pt,bottom=0pt,%
    colback=Crimson!15,%
    colframe=Crimson!50,%
  }%
}%

%% Kholle
\tcbset{%
  tikzkholle/.style={%
    before skip=1em,
    enhanced,
    breakable,
    colback=white,
    colframe=gray!50,
    overlay unbroken and first={%
      \node[%
      name=A,
      fill=white,
      anchor=west,
      xshift=10pt,
      ] at (frame.north west){\ifboolKV[ClesExercices]{AffichageTitre}{%
          {\bfseries\sffamily\useKV[ClesExercices]{Titre}}%
        }{\bfseries\sffamily Exercice \thePfMExo}%
        \xintifboolexpr{\useKV[ClesExercices]{Difficulte}<1}{}{%
          ~(\foreach \s in {1,...,\useKV[ClesExercices]{Difficulte}}{%
            $\star$%
          })%
        }
      }
      ;
      %%
      \PfMAffichageSource%
    }%
  }%
}%

\newenvironment{CRNote}{%
  \tcolorbox[colback=white,height=2cm,title=NOTE,fonttitle=\color{black}\bfseries\sffamily,colbacktitle=white,enhanced,%
    overlay unbroken and first={%
      \node[%
      anchor=east,
      yshift=-8pt,
      xshift=-10pt,
      text=black,
      ]
      at (frame.north east)
      {\sffamily\bfseries \useKV[Kholle]{NomEleve}};
      \node[%
      anchor=center,
      yshift=-8pt,
      text=black,
      ]
      at (frame.north)
      {\sffamily\bfseries \useKV[Kholle]{Date}};
    }
    ]%
  }{%
  \endtcolorbox%
}

\newenvironment{CRRemarque}{%
  \tcolorbox[colback=white,height=\CRRHauteur,title=REMARQUE(S),fonttitle=\color{black}\bfseries\sffamily,colbacktitle=white%
  ]}
{%
  \endtcolorbox%
}%

\NewDocumentEnvironment{exerciceKholle}{o}{%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#1}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
  \PfMChoixCorrection%
  \refstepcounter{PfMExo}%
  \PfMChoixTitreSolution%
  \tcolorbox[%
  tikzkholle,
  label is label,
  label=page-\thePfMMaquette-\thePfMExo
  ]
  \ifboolKV[Boulot]{Dys}{\raggedright}{}%
}{\endtcolorbox%
}

\newenvironment{exerciceBase}[1][]{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]
  \setKV[ClesExercices]{#1}
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}
  \refstepcounter{PfMExo}
  \tcolorbox[%
  tikzbase
  ]
}{\endtcolorbox%
}

\newenvironment{exerciceBaseHTML}[1][]{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]
  \setKV[ClesExercices]{#1}
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}
  \refstepcounter{PfMExo}
  \tcolorbox[%
  standard jigsaw, opacityback=0,
  lowerbox=ignored,
  tikzbasehtml
  ]
}{\endtcolorbox%
}

%Alias pour tous les exercices.
\NewDocumentEnvironment{exercice}{}{}{}%
\NewDocumentEnvironment{Exercice}{}{}{}%

%%%%%%%%% STyle Kholle%%%%%%%%%%
% Kholle
\tcbset{%
  userkholle/.style={%
    frame hidden,colback=white,enhanced,%
    borderline north={3pt}{0pt}{gray!85},
    borderline north={2pt}{0.5pt}{gray!15},
    borderline south={3pt}{0pt}{gray!85},
    borderline south={2pt}{0.5pt}{gray!15}
  }%
}%

\newcommand\TikzKholle{%
  \clearpage
  \begin{tcolorbox}[userkholle]%
    \sffamily Interrogation Orale \useKV[Kholle]{Numero}\hfill
    \ifboolKV[Kholle]{CR}{}{Sujet \useKV[Kholle]{Sujet}\hfill}\useKV[Kholle]{Niveau}%
    \par\useKV[Kholle]{Lieu}\hfill Le \useKV[Kholle]{Date}%
  \end{tcolorbox}%
}

\newcommand\TikzKholleCor[1]{%
  \clearpage
  \setKV[Kholle]{#1}
  \begin{tcolorbox}[colback=white,height=2cm,title=NOTE,fonttitle=\color{black}\bfseries\sffamily,colbacktitle=white,enhanced,%
    overlay unbroken and first={%
      \node[%
      anchor=east,
      yshift=-8pt,
      xshift=-10pt,
      text=black,
      ]
      at (frame.north east)
      {\sffamily\bfseries Nom : \hbox to5cm{}};
      \node[%
      anchor=center,
      yshift=-8pt,
      text=black,
      ]
      at (frame.north)
      {\sffamily\bfseries \useKV[Kholle]{Date}};
    }
    ]%
  \end{tcolorbox}%
  \begin{tcolorbox}[colback=white,height=2cm,title=EXERCICE(S),fonttitle=\color{black}\bfseries\sffamily,colbacktitle=white%
    ]%
  \end{tcolorbox}%
  \begin{tcolorbox}[colback=white,height=\textheight-5cm,title=REMARQUE(S),fonttitle=\color{black}\bfseries\sffamily,colbacktitle=white%
    ]%
  \end{tcolorbox}%
}

%%%%%%%%%% Style DM%%%%%%%%%%%%%
\tcbset{%
  userdm/.style={%
    frame hidden,colback=white,enhanced,%
    borderline north={3pt}{0pt}{gray!85},%
    borderline north={2pt}{0.5pt}{gray!15},%
    borderline south={3pt}{0pt}{gray!85},%
    borderline south={2pt}{0.5pt}{gray!15}%
  }%
}%

\tcbset{%
  userdmcor/.style={%
    colback=gray!5%
  }%
}%

\NewDocumentCommand\TikzDM{}{%
  \clearpage%
  \begin{tcolorbox}[userdm]%
    \sffamily Devoir en temps libre \useKV[DM]{Numero}\hfill\useKV[DM]{Niveau} \useKV[DM]{Classe}%\no
    \par{\tiny\useKV[DM]{Code}}\hfill{\scriptsize Pour le \useKV[DM]{Date}}%
  \end{tcolorbox}%
}%

\NewDocumentCommand\TikzDMCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[DM]{#1}%
  \begin{tcolorbox}[colback=white,height=\PfMHauteurAppreciation,title=APPR\'ECIATION,fonttitle=\color{black}\bfseries\sffamily,colbacktitle=white,enhanced,%
    overlay unbroken and first={%
      \node[%
      inner sep=0pt,
      fill=white,
      anchor=east,
      yshift=-9pt,
      xshift=-10pt,
      text=black,
      ]
      at (frame.north east)
      {\scriptsize\sffamily\bfseries \useKV[DM]{Code}};
    }
    ]%
  \end{tcolorbox}%
  \begin{tcolorbox}[colback=white,height=\PfMHauteurRemarque,title=CONSEIL(S) / REMARQUE(S),fonttitle=\color{black}\bfseries\sffamily,colbacktitle=white%
    ]%
  \end{tcolorbox}%
}
%%% Style Cours
\tcbset{
  usercours/.style={
    enhanced,
  skin=enhancedlast jigsaw,
  attach boxed title to top left={xshift=-4mm,yshift=-0.5mm},
  fonttitle=\bfseries\sffamily,
  colbacktitle=blue!45,
  colframe=red!50!black,
  interior style={
    top color=blue!10,
    bottom color=red!10
  },
  boxed title style={
    empty,
    arc=0pt,
    outer arc=0pt,
    boxrule=0pt
  },
  underlay boxed title={
    \fill[blue!45!white] 
      (title.north west) -- 
      (title.north east) -- 
      +(\tcboxedtitleheight-1mm,-\tcboxedtitleheight+1mm) -- 
      ([xshift=4mm,yshift=0.5mm]frame.north east) -- 
      +(0mm,-1mm) -- 
      (title.south west) -- cycle;
    \fill[blue!45!white!50!black] 
      ([yshift=-0.5mm]frame.north west) -- 
      +(-0.4,0) -- 
      +(0,-0.3) -- cycle;
    \fill[blue!45!white!50!black] 
      ([yshift=-0.5mm]frame.north east) -- 
      +(0,-0.3) -- 
      +(0.4,0) -- cycle; 
  },
  title={\useKV[Cours]{Theme}},
}
}

\NewDocumentCommand\TikzCours{}{%
  \begin{tcolorbox}[usercours]%
%    \Large\sffamily\bfseries  Cours : \useKV[Fiche]{Theme}%
%    \useKV[Fiche]{Niveau}~\useKV[Fiche]{Classe}\hfill{\scriptsize\useKV[Fiche]{Date}}%
  \end{tcolorbox}%
}

%%%%%% Style Fiche
\tcbset{%
  userfiche/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\tcbset{%
  userfichecor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\NewDocumentCommand\TikzFiche{}{%
  \begin{tcolorbox}[userfiche]%
    \Large\sffamily \useKV[Fiche]{Theme}\hfill\useKV[Fiche]{Niveau} \useKV[Fiche]{Classe}%
    \par{\tiny\useKV[Fiche]{Code}}\hfill{\scriptsize\useKV[Fiche]{Date}}%
  \end{tcolorbox}%
}%

\NewDocumentCommand\TikzFicheCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[Fiche]{#1}%
  \begin{tcolorbox}[userfichecor]%
    \Large\sffamily \useKV[Fiche]{Theme} (Correction) \hfill\useKV[Fiche]{Niveau} \useKV[Fiche]{Classe}
    \par{\tiny\useKV[Fiche]{Code}}\hfill{\scriptsize\useKV[Fiche]{Date}}
  \end{tcolorbox}%
}

\NewDocumentCommand\TikzFicheCorRep{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[Fiche]{#1}%
  \begin{tcolorbox}[userfichecor]%
    \Large\sffamily \useKV[Fiche]{Theme} (Réponses) \hfill\useKV[Fiche]{Niveau} \useKV[Fiche]{Classe}
    \par{\tiny\useKV[Fiche]{Code}}\hfill{\scriptsize\useKV[Fiche]{Date}}
  \end{tcolorbox}%
}

\NewDocumentCommand\TikzFicheCorInd{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[Fiche]{#1}%
  \begin{tcolorbox}[userfichecor]%
    \Large\sffamily \useKV[Fiche]{Theme} (Indices) \hfill\useKV[Fiche]{Niveau} \useKV[Fiche]{Classe}
    \par{\tiny\useKV[Fiche]{Code}}\hfill{\scriptsize\useKV[Fiche]{Date}}
  \end{tcolorbox}%
}

\makeatletter
\tcbset{%
  tikzfiche/.style={%
    before skip=1em,
    enhanced,
    breakable,
    colback=ColExoFiche,
    colframe=PfMCadreFiche,
    overlay unbroken and first={%
      \node[%
      name=A,
      fill=ColExoFiche,
      anchor=west,
      xshift=\kvtcb@leftlower,
      ] at (frame.north west){\bfseries\sffamily\useKV[Fiche]{NomExercice}\ifboolKV[ClesExercices]{Numerote}{ \thePfMExo}{}\ifboolKV[ClesExercices]{AffichageTitre}{\ifboolKV[ClesExercices]{Numerote}{~:~}{\xdef\PfMTitiLgNE{\useKV[Fiche]{NomExercice}}\IfStrEq{\PfMTitiLgNE}{}{}{~:~}}\useKV[ClesExercices]{Titre}}{}};
      %%
      \useKV[ClesExercices]{Ajout}%
      %% 
      \PfMAffichageLogos%
      %
      \PfMAffichageCompetencesTravaillees%
      %
      \PfMAffichageSource%
      % Lien vers la solution
      \PfMLienVersSolution
      % Lien vers les entrainements
      \PfMLienVersEntrainement
    }%
  }%
}%
\makeatother

\makeatletter
\tcbset{%
  tikzOlympiadesAPMEP/.style={%
    top=10pt,
    left=0mm,right=0mm,
    before skip=1em,
    enhanced,
    breakable,
    colback=ColExoFiche,
    frame hidden,
    overlay unbroken and first={%
      \draw[colLogo,line width=1pt] ([yshift=-12pt]frame.north west)--([yshift=-12pt]frame.north east);
      \node[%
      name=A,
      fill=ColExoFiche,
      anchor=west,
      xshift=\kvtcb@leftlower,
      ] at (frame.north west){\color{colLogo}\resizebox{1em}{!}{\carreEntoure{}}~\Large\bfseries\sffamily\useKV[Fiche]{NomExercice}\ifboolKV[ClesExercices]{Numerote}{ \thePfMExo}{}\ifboolKV[ClesExercices]{AffichageTitre}{\ifboolKV[ClesExercices]{Numerote}{.~}{\xdef\PfMTitiLgNE{\useKV[Fiche]{NomExercice}}\IfStrEq{\PfMTitiLgNE}{}{}{.~}}\useKV[ClesExercices]{Titre}}{}};
      \node[%
      name=B,
      fill=ColExoFiche,
      anchor=east,
      xshift=-\kvtcb@leftlower,
      ] at (frame.north east){\color{colLogo}\Large\bfseries\sffamily\ifnum\fpeval{\useKV[ClesExercices]{Categorie}}=1\relax
          Spécialistes%
        \else
          \ifnum\fpeval{\useKV[ClesExercices]{Categorie}}=2\relax
            Non spécialistes
          \fi
        \fi};
      %%
      \useKV[ClesExercices]{Ajout}%
      %%
      \PfMAffichageLogos%
      %
      \PfMAffichageCompetencesTravaillees%
      %
      \PfMAffichageSource%
      % Lien vers la solution
      \PfMLienVersSolution
    }%
  }%
}%
\makeatother
%%% Parcours %%%
\tcbset{%
  userparcours/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\tcbset{%
  userparcourscor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\NewDocumentCommand\TikzParcours{}{%
  \begin{tcolorbox}[userparcours]%
    \Large\sffamily \useKV[Parcours]{Theme}\hfill\useKV[Parcours]{Niveau} \useKV[Parcours]{Classe}%
    \par{\tiny\useKV[Parcours]{Code}}\hfill{\scriptsize\useKV[Parcours]{Date}}%
  \end{tcolorbox}%
}

\NewDocumentCommand\TikzParcoursCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[Parcours]{#1}%
  \begin{tcolorbox}[userparcourscor]%
    \Large\sffamily \useKV[Parcours]{Theme} (Correction) \hfill\useKV[Parcours]{Niveau} \useKV[Parcours]{Classe}
    \par{\tiny\useKV[Parcours]{Code}}\hfill{\scriptsize\useKV[Parcours]{Date}}
  \end{tcolorbox}%
}

\tcbset{%
  tikzparcours/.style={%
    before skip=1em,
    enhanced,
    breakable,
    colback=white,
    colframe=PfMCadreParcours,
    overlay unbroken and first={%
      \node[%
      name=A,
      fill=white,
      anchor=west,
      xshift=10pt,
      ] at (frame.north west){\bfseries\sffamily \useKV[Parcours]{NomExercice} \thePfMExo\ifboolKV[ClesExercices]{AffichageTitre}{ : \useKV[ClesExercices]{Titre}}{}};
      %%
      \useKV[ClesExercices]{Ajout}%
      %%
      \PfMAffichageLogos%
      %%
      \PfMAffichageCompetencesTravaillees%
      %%
      \PfMAffichageSource%
      %
      \PfMLienVersSolution%
      %
      \PfMLienVersEntrainement%
    }%
  }%
}%
%% Fin Parcours %%%
%%% DS %%%
\tcbset{%
  userds/.style={%
    colback=gray!5,%
    enhanced,%
    overlay unbroken and first={%
      \node[yshift=1em] at (frame.south) {\scriptsize\sffamily-- Calculatrice \ifboolKV[DS]{Calculatrice}{autorisée}{interdite} --};
    }%
  }%
}%

\tcbset{%
  userdscor/.style={%
    colback=gray!5%
  }%
}%


\newcommand\TikzDS{%
  \clearpage
  \begin{tcolorbox}[userds]%
    \sffamily Devoir surveillé \useKV[DS]{Numero} (Sujet \useKV[DS]{Sujet})\hfill\useKV[DS]{Niveau} \useKV[DS]{Classe}
    \par{\tiny\useKV[DS]{Code}}\hfill{\scriptsize\useKV[DS]{Date}}
  \end{tcolorbox}%
}%

\NewDocumentCommand\TikzDSCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[DS]{#1}%
  \begin{tcolorbox}[userdscor]%
    \sffamily Devoir surveillé \useKV[DS]{Numero} (Sujet \useKV[DS]{Sujet})\hfill\useKV[DS]{Niveau} \useKV[DS]{Classe}%
    \par Correction%
  \end{tcolorbox}%
}

\makeatletter
\tcbset{%
  tikzds/.style={%
    enhanced,
    breakable,
    before skip=2mm,after skip=2mm,
    colback=white,
    attach boxed title to top left={xshift=1cm,yshift*=1mm-\tcboxedtitleheight},
    varwidth boxed title*=-3cm,
    boxed title style={frame code={
        \path[fill=tcbcolback!30!black]
        ([yshift=-1mm,xshift=-1mm]frame.north west)
        arc[start angle=0,end angle=180,radius=1mm]
        ([yshift=-1mm,xshift=1mm]frame.north east)
        arc[start angle=180,end angle=0,radius=1mm];
        \path[left color=tcbcolback!60!black,right color=tcbcolback!60!black,
        middle color=tcbcolback!80!black]
        ([xshift=-2mm]frame.north west) -- ([xshift=2mm]frame.north east)
        [rounded corners=1mm]-- ([xshift=1mm,yshift=-1mm]frame.north east)
        -- (frame.south east) -- (frame.south west)
        -- ([xshift=-1mm,yshift=-1mm]frame.north west)
        [sharp corners]-- cycle;
      },interior engine=empty,
    },
    fonttitle=\bfseries\sffamily,
    title=Exercice\ifboolKV[ClesExercices]{Numerote}{ \thePfMExo}{}\ifboolKV[ClesExercices]{AffichageTitre}{ : \useKV[ClesExercices]{Titre}}{},
    overlay unbroken and first={%
      %
      \useKV[ClesExercices]{Ajout}%
      %
      \PfMAffichageSource%
      %
      \ifboolKV[ClesExercices]{BaremeTotal}{%
        \node[
        fill=white,
        anchor=east,
        xshift=-10pt,
        text=black,
        font=\bfseries
        ]
        at (frame.north east)
        {\footnotesize\sffamily \total{\the\c@PfMSection-\the\c@PfMExo}};
      }{}
      \PfMLienVersSolution%
    }%
  }%
}%
\makeatother
% Interrogations écrites
\tcbset{%
  userie/.style={%
  colback=gray!5,
  enhanced,%
  overlay unbroken and first={%
    \node[yshift=1em] at (frame.south) {\scriptsize\sffamily-- Calculatrice \ifboolKV[IE]{Calculatrice}{autorisée}{interdite} --};
    }%
  }%
}%

\tcbset{%
  useriecor/.style={%
  colback=gray!5,
  enhanced,%
  overlay unbroken and first={%
    \node[yshift=1em] at (frame.south) {
      \scriptsize\sffamily-- Calculatrice \ifboolKV[IE]{Calculatrice}{autorisée}{interdite} --
      };%
    }%
  }%
}%
\newcommand\TikzIE{%
  \clearpage
  \begin{minipage}{0.6\linewidth}
    \begin{tcolorbox}[userie]%
      \sffamily \useKV[IE]{Nom} \useKV[IE]{Numero} : \useKV[IE]{Theme} \ifboolKV[IE]{Sujets}{{\scriptsize(Sujet \useKV[IE]{Sujet})}}{}
      \vspace{1em}
      \par{\tiny\useKV[IE]{Code}}\hfill{\scriptsize\useKV[IE]{Date}}
    \end{tcolorbox}%
  \end{minipage}\hfill\begin{minipage}{0.35\linewidth}
    Nom : \PfMIENom\\[0.5em]
    Prénom : \PfMIEPrenom\\[0.5em]
    Classe : \PfMIEClasse%
  \end{minipage}%
  \par\bigskip%
}%

\newcommand\TikzIECor[1]{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[IE]{#1}%
  \begin{tcolorbox}[useriecor]%
    \sffamily \useKV[IE]{Nom} \useKV[IE]{Numero} : \useKV[IE]{Theme} \ifboolKV[IE]{Sujets}{\scriptsize(Sujet \useKV[IE]{Sujet})}{}\hfill Correction%
    \par{\tiny\useKV[IE]{Code}}\hfill{\scriptsize\useKV[IE]{Date}}%
  \end{tcolorbox}%
}%

\NewDocumentCommand\PfMRecapitulatif{mm}{%
  \setKV[Boulot]{#1}%
  \setKV[ParcoursPerso]{#2}%
  \setcounter{PfMRetiensMapourPP}{\thePfMMaquette}%
  \DTLforeach*{dataperso}{\Prenom=PrenomEleve,\Nom=NomEleve,\RecapListeExo=ListeExo,\PfMMaquettePerso=TypeMaq}{%
    \begin{Maquette}[Fiche]{#2,Code=\normalsize\Prenom~\Nom}%
      \xdef\PfMNumeroPageDepartPP{\thepage}%
      \ifx\bla\PfMMaquettePerso\bla%
      \else%
        \setsepchar{,}\ignoreemptyitems%
        \readlist*\ListeChoixPerso{\PfMMaquettePerso}%
        \reademptyitems%
        \foreachitem\compteur\in\ListeChoixPerso{%
          \IfStrEqCase{\compteur}{%
            {Dys}{\setKV[Boulot]{Dys}}%
          }%
        }%
      \fi%
      \PfMBasculeDys%
      \readlist*\ListeExercices{\RecapListeExo}%
      \ifnum\fpeval{\ListeExerciceslen}=1\relax{}%
        \setKVdefault[ClesExercices]{Numerote=false}%
        \input{\jobname-Ma\thePfMRetiensMapourPP-PPEx\ListeExercices[1].tex}%
        \setKVdefault[ClesExercices]{Numerote}%
      \else%
        \foreach\i in{1,...,\ListeExerciceslen}{%
          \input{\jobname-Ma\thePfMRetiensMapourPP-PPEx\ListeExercices[\i].tex}%
        }%
      \fi%
      \ifnum\thePfMCorrigeParcoursPerso=1\relax%
        \clearpage
        \TikzFicheCor{#1,Code=\normalsize\Prenom~\Nom}%
        \readlist*\ListeExercices{\RecapListeExo}%
        \ifnum\fpeval{\ListeExerciceslen}=1\relax{}%
          \textbf{Corrigé de l'exercice} : \input{\jobname-Ma\thePfMMaquette-PPEx\ListeExercices[1].sol}\par\goodbreak%
        \else%
          \foreach\i in{1,...,\ListeExerciceslen}{%
            \textbf{Corrigé de l'exercice \i} : \input{\jobname-Ma\thePfMMaquette-PPEx\ListeExercices[\i].sol}\par\goodbreak%
          }%
        \fi%
      \fi%
      \xdef\PfMNumeroPageArriveePP{\thepage}%
    \end{Maquette}%
    \ifboolKV[ParcoursPerso]{RectoVerso}{%
    \ifodd\fpeval{\PfMNumeroPageArriveePP-\PfMNumeroPageDepartPP+1}\relax%
      \clearpage\phantom{t}\clearpage%
    \fi%
    }{}%
  }%
}%

\NewDocumentCommand\RecapitulatifCorrection{m}{%
  \DTLforeach*{dataperso}{\Prenom=PrenomEleve,\Nom=NomEleve,\RecapListeExo=ListeExo}{%
    \clearpage
    \TikzFicheCor{#1,Code=\normalsize\Prenom~\Nom}%
    \readlist*\ListeExercices{\RecapListeExo}%
    \foreach\i in{1,...,\ListeExerciceslen}{%
      \IfFileExists{\jobname-PPEx\ListeExercices[\i].sol}{\textbf{Corrigé de l'exercice \i} : \input{\jobname-Ma\thePfMMaquette-PPEx\ListeExercices[\i].sol}\par\goodbreak}{}%
    }%
  }%
}%

\NewDocumentCommand\PfMFontDys{}{}%
\NewDocumentCommand\PfMFontNonDys{}{}%

\NewDocumentCommand\PfMBasculeDys{}{%
  \ifboolKV[Boulot]{Dys}{%
      % d'après \url{https://culturedys.com/quelle-est-la-meilleure-police-pour-les-dyslexiques/}
    \xdef\PfMTaillePointDys{\useKV[Boulot]{Taille}}%
    \fontsize{\PfMTaillePointDys}{\fpeval{\PfMTaillePointDys*1.2*1.5}}\selectfont%
    \raggedright%
    \setlength{\spaceskip}{\PfMEcartSupInterMots+\fontdimen2\font}%
    \PfMFontDys%
  }{%
    \ifnum\thePfMMaquette=1\relax%
    \else%
      \fontsize{\fpeval{10+\PfMFontSize}}{\fpeval{1.2*(10+\PfMFontSize)}}%
      \selectfont%
      \renewcommand{\JustifyingParindent}{\parindent}
      \justifying%
    \fi%
    \PfMFontNonDys%
  }%
}%

\NewDocumentCommand\PfMChangerTailleCorrection{}{%
  \ifboolKV[Boulot]{Small}{%
    \small%
  }{%
    \ifboolKV[Boulot]{Footnotesize}{%
      \footnotesize
    }{%
      \ifboolKV[Boulot]{Scriptsize}{%
        \scriptsize
      }{}%
    }%
  }%
}%

%% Pour factoriser l'appel aux corrections dans l'environnement Maquette
\makeatletter
\NewDocumentCommand\PfMPrepareCorrection{m}{%
  \useKVdefault[Boulot]%
  \setKV[Boulot]{#1}%
  \if@CAN
    \ifnum\thepage<5\relax
      \xintFor* ##1 in{\xintSeq{1}{\fpeval{5-\thepage}}}\do{%
        ~\clearpage%
      }%
    \fi%
  \fi%
  \if@Dyslexie%
    \setKV[Boulot]{Dys}%
  \fi%
  \PfMBasculeDys%
  \setlength{\columnseprule}{\useKV[Boulot]{Epaisseur}}%
  \PfMChangerTailleCorrection%
}%
\makeatother

\NewDocumentCommand\PfMAffichageCorrectionColonnes{}{%
  \ifboolKV[Boulot]{CorrectionColonnes}{\begin{multicols}{\useKV[Boulot]{Colonnes}}}{}%
  \PfMAffichageCorrige%
  \ifboolKV[Boulot]{CorrectionColonnes}{\end{multicols}}{}%
}%

\NewDocumentCommand\PfMAffichageEntrainementColonnes{}{%
  \ifboolKV[Boulot]{CorrectionColonnes}{\begin{multicols}{\useKV[Boulot]{Colonnes}}}{}%
  \PfMAffichageEntrainement%
  \ifboolKV[Boulot]{CorrectionColonnes}{\end{multicols}}{}%
}%

% GameBook
\tcbset{%
  userlivreheros/.style={%
    spread upwards=-1cm,colback=Ivory,colframe=black!25!Ivory%
  }%
}%

\setKVdefault[LivreHeros]{Theme=Les nombres d\'ecimaux}

\NewDocumentCommand\vaen{m}{\ref{#1}}%

\NewDocumentCommand\TikzLivreHeros{}{%
  \begin{tcolorbox}[userlivreheros]%
    \begin{center}
      \Large\sffamily \useKV[LivreHeros]{Theme}
      \end{center}
  \end{tcolorbox}%
}%

\tcbset{%
  tikzLH/.style={%
    before skip=1em,
    enhanced,
    coltitle=black,
    colbacktitle=black!10!Ivory,
    colframe=white,
    colback=white,
    attach boxed title to top center={yshift=-2mm},
    label is label
  }%
}%

\newcounter{PfMGameBook}[PfMMaquette]
\setcounter{PfMGameBook}{0}

\makeatletter
\def\ExoGBWrite{%
  \setcounter{PfMAlea}{0}%
  \PfMChoixCorrection%
  \stepcounter{PfMExo}%
  \immediate\write\@auxout{%
    \string\opcopy{\thePfMExo}{TotalExo}%
  }%
  \@bsphack%
  \immediate\openout \verbatim@out "\jobname-Ma\thePfMMaquette-Ex\thePfMExo.gb"%
  \let\do\@makeother\dospecials%
  \catcode`\^^M\active%
  \def\verbatim@processline{\immediate\write\verbatim@out{\the\verbatim@line}}%
  \verbatim@start}%
\def\endExoGBWrite{\immediate\closeout\verbatim@out\@esphack}%
\makeatother
%%%%

\NewDocumentEnvironment{exerciceBeamer}{so}{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#2}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \ifboolKV[ClesExercices]{NonUtilise}{%
    % Mettre la correction hors-jeu
    \setKV[ClesExercices]{PasCorrige}%
    \PfMChoixCorrection%
    \begin{PfMHide}
  }{%
    \IfBooleanTF{#1}{%
      \setKV[ClesExercices]{Numerote=false}%
    }{}%
    \colorlet{ColExoFiche}{\useKV[ClesExercices]{Background}}%
    \colorlet{PfMCadreFiche}{\useKV[ClesExercices]{Cadre}}%
    \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
    \PfMAvantLesExercices%
    \ifboolKV[Boulot]{CorrigeSeul}{}{%
      \PfMChoixTitreSolution%
      \PfMChoixHideItemSolution%
      \begin{tcolorbox}[%
        tikzbeamer,
        label is label,
        label=page-\thePfMMaquette-\thePfMExo
        ]
        \ifboolKV[Boulot]{Dys}{\raggedright}{}%
      }%
    }%
  }{%
    \ifboolKV[ClesExercices]{NonUtilise}{\end{PfMHide}}{%
      \ifboolKV[Boulot]{CorrigeSeul}{}{%
          \PfMJusteAvantLaFinDesExercices%
        \end{tcolorbox}%
        % \ifboolKV[ClesExercices]{Profile}{\PfMshowitems}{}%
        \PfMApresLesExercices%
      }%
    }%
}%

\makeatletter
\tcbset{%
  tikzbeamer/.style={%
    before skip=0.5em,
    enhanced,
    breakable,
    colback=white,%ColExoFiche,
    frame hidden,
    %colframe=PfMCadreFiche,
    overlay unbroken and first={%
      \node[%
      name=A,
      anchor=center,
      xshift=8*\kvtcb@leftlower/10,
      yshift=-10*\kvtcb@leftlower/9,
      ] at (frame.north west){\thePfMExo};
      %%
      \useKV[ClesExercices]{Ajout}%
      %% 
      \PfMAffichageSource%
    }%
  }%
}%
\makeatother

%%%%%%%%%%%%%%%%% AMC

\def\PfMTexteAMC{\scriptsize Pour chaque question, remplir avec un stylo {\em noir} la case associée à {\em l'unique} réponse correcte.\par En cas d'erreur, {\em ne redessiner pas} la case cochée par erreur, mettez simplement un coup de « blanc » dessus.}

\newcommand\TikzAMC{%
  \begin{tcolorbox}[%
    colback=LightGray!10,
    colframe=LightGray,
    enhanced,%
    overlay unbroken and first={%
      \ifboolKV[AMC]{Calculatrice}{\node[yshift=1em] at (frame.south) {\scriptsize\sffamily-- Calculatrice autorisée --};}{}%
    }%
    ]%
    \sffamily \useKV[AMC]{Theme}
    \vspace{1em}
    \par\hfill{\scriptsize\useKV[AMC]{Date}}
  \end{tcolorbox}%
  \ifboolKV[Boulot]{IntroductionAMC}{\PfMTexteAMC}{}%
  \par\bigskip%
}%

\newlength\PfMAMCBarreFraction
\makeatletter
\setKVdefault[ListeReponses]{Lettre=x,Unites=false}
\defKV[ListeReponses]{Unite=\setKV[ListeReponses]{Unites}\DeclareSIUnit{\TempoAMC}{#1}}

\NewDocumentCommand\ListeReponses{som}{%
  \ifboolKV[Boulot]{AMC}{%
    \useKVdefault[ListeReponses]%
    \setKV[ListeReponses]{#2}%
    \setsepchar{,}\ignoreemptyitems%
    \readlist*\ListeAMCRep{#3}%
    \reademptyitems%
%    \showitems\ListeAMCRep[]
    \setcounter{PfMAMCOpen}{1}%
    \stepcounter{PfMNbListeReponsesAMC}%
    \par
    \ifnum\fpeval{\ListeAMCReplen}=1\relax%
      % On teste la présence de ! pour les fractions, de : pour l'écriture ax+b, de ! pour une écriture du style $a^p$ et de | pour les écritures scientifiques.
      \StrCount{\ListeAMCRep[1]}{/}[\PfMAMCPresenceFraction]%
      \StrCount{\ListeAMCRep[1]}{:}[\PfMAMCPresenceLitteral]%
      \StrCount{\ListeAMCRep[1]}{!}[\PfMAMCPresencePuissances]%
      \StrCount{\ListeAMCRep[1]}{|}[\PfMAMCPresencePuissancesDix]%
      \ifnum\fpeval{\PfMAMCPresenceFraction+\PfMAMCPresenceLitteral+\PfMAMCPresencePuissances+\PfMAMCPresencePuissancesDix}=0\relax
        \begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}
          \IfInteger{\ListeAMCRep[1]}{%
            \itemtomacro\ListeAMCRep[1]\Toto%
            \StrLen{\fpeval{abs(\Toto)}}[\PfMLongueurCaseAMC]%
            \IfBooleanTF{#1}{%
              \AMCnumericChoices{\fpeval{\ListeAMCRep[1]}}{digits=\PfMLongueurCaseAMC,sign,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}%
            }{%
              \begin{minipage}{\PfMAMCBarreFraction}
                \AMCnumericChoices{\fpeval{\ListeAMCRep[1]}}{digits=\PfMLongueurCaseAMC,sign=false,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}
              \end{minipage}\ifboolKV[ListeReponses]{Unites}{~~~\si[per-mode=symbol]{\TempoAMC}}{}%
            }%
          }{%
            \itemtomacro\ListeAMCRep[1]\Toto%
            \StrCut{\Toto}{.}{\TotoAv}{\TotoAp}%
            \StrLen{\fpeval{abs(\TotoAv)}}[\PfMLongueurCaseAMCAv]%
            \StrLen{\TotoAp}[\PfMLongueurCaseAMCAp]%
            \IfBooleanTF{#1}{%
              \AMCnumericChoices{\fpeval{\ListeAMCRep[1]}}{digits=\fpeval{\PfMLongueurCaseAMCAv+\PfMLongueurCaseAMCAp},decimals=\PfMLongueurCaseAMCAp,sign,Tpoint={,},borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}%
            }{%
              \begin{minipage}{\PfMAMCBarreFraction}
                \AMCnumericChoices{\fpeval{\ListeAMCRep[1]}}{digits=\fpeval{\PfMLongueurCaseAMCAv+\PfMLongueurCaseAMCAp},decimals=\PfMLongueurCaseAMCAp,sign=false,Tpoint={,},borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}%
              \end{minipage}\ifboolKV[ListeReponses]{Unites}{~~~\si[per-mode=symbol]{\TempoAMC}}{}%
            }%
          }%
        \end{questionmultx}
      \else
        %Fraction
        \ifnum\PfMAMCPresenceFraction=1\relax%
          \begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}
          \itemtomacro\ListeAMCRep[1]\Toto%
          \StrCut{\Toto}{/}{\TotoAv}{\TotoAp}%
          \StrLen{\fpeval{abs(\TotoAv)}}[\PfMLongueurCaseAMCNum]%
          \StrLen{\TotoAp}[\PfMLongueurCaseAMCDeno]%
          \IfBooleanTF{#1}{%
            \AMCnumericChoices{\TotoAv.\TotoAp}{digits=\fpeval{\PfMLongueurCaseAMCNum+\PfMLongueurCaseAMCDeno},decimals=\PfMLongueurCaseAMCDeno,sign,Tpoint={\raisebox{0.25\AMC@boxedheight}{\rule{\PfMAMCBarreFraction}{1pt}}},borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}%
          }{%
            \AMCnumericChoices{\TotoAv.\TotoAp}{digits=\fpeval{\PfMLongueurCaseAMCNum+\PfMLongueurCaseAMCDeno},decimals=\PfMLongueurCaseAMCDeno,sign=false,Tpoint={\raisebox{0.25\AMC@boxedheight}{\rule{\PfMAMCBarreFraction}{1pt}}},borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}%
          }%
          \end{questionmultx}
        \fi
        % Puissances
        \ifnum\PfMAMCPresencePuissances=1\relax%
          \itemtomacro\ListeAMCRep[1]\Toto%
          \StrCut{\Toto}{!}{\TotoAv}{\TotoAp}%
          \StrLen{\fpeval{abs(\TotoAv)}}[\PfMLongueurCaseAMCMant]%
          \StrLen{\TotoAp}[\PfMLongueurCaseAMCPuis]%
          \IfBooleanTF{#1}{%
            $\begin{minipage}{\PfMAMCBarreFraction}
              \begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAv}{digits=\fpeval{\PfMLongueurCaseAMCMant},sign,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}\end{questionmultx}
              \end{minipage}^{~\begin{minipage}{\PfMAMCBarreFraction}
                \scriptsize\stepcounter{PfMNbListeReponsesAMC}\begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAp}{digits=\fpeval{\PfMLongueurCaseAMCPuis},sign,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}\end{questionmultx}
              \end{minipage}}$
          }{%
            $\begin{minipage}{\PfMAMCBarreFraction}
              \begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAv}{digits=\fpeval{\PfMLongueurCaseAMCMant},sign=false,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}\end{questionmultx}
              \end{minipage}^{~\begin{minipage}{\PfMAMCBarreFraction}
                \scriptsize\stepcounter{PfMNbListeReponsesAMC}\begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAp}{digits=\fpeval{\PfMLongueurCaseAMCPuis},sign=false,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}\end{questionmultx}
              \end{minipage}}$
          }%
        \fi
        % PuissancesDix
        \ifnum\PfMAMCPresencePuissancesDix=1\relax%
          \itemtomacro\ListeAMCRep[1]\Toto%
          \StrCut{\Toto}{|}{\TotoAv}{\TotoAp}%
          \StrLen{\fpeval{abs(\TotoAv)}}[\PfMLongueurCaseAMCMant]%
          \StrLen{\TotoAp}[\PfMLongueurCaseAMCPuis]%
          \StrCut{\TotoAv}{.}{\TotoAva}{\TotoApa}%
          \StrLen{\fpeval{abs(\TotoAva)}}[\PfMLongueurCaseAMCManta]%
          \StrLen{\fpeval{abs(\TotoApa)}}[\PfMLongueurCaseAMCMantb]%
          \IfBooleanTF{#1}{%
            $\begin{minipage}{\PfMAMCBarreFraction}
              \begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAv}{digits=\fpeval{\PfMLongueurCaseAMCManta+\PfMLongueurCaseAMCMantb},Tpoint={,},decimals=\PfMLongueurCaseAMCMantb,sign,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}
              \end{questionmultx}
            \end{minipage}\quad\times10^{~\begin{minipage}{\PfMAMCBarreFraction}
             \scriptsize\stepcounter{PfMNbListeReponsesAMC}\begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAp}{digits=\PfMLongueurCaseAMCPuis,sign,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}\end{questionmultx}
              \end{minipage}}
            $
          }{%
            $\begin{minipage}{\PfMAMCBarreFraction}
              \begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAv}{digits=\fpeval{\PfMLongueurCaseAMCManta+\PfMLongueurCaseAMCMantb},Tpoint={,},decimals=\PfMLongueurCaseAMCMantb,sign=false,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}
              \end{questionmultx}
            \end{minipage}\quad\times10^{~\begin{minipage}{\PfMAMCBarreFraction}
             \scriptsize\stepcounter{PfMNbListeReponsesAMC}\begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}\AMCnumericChoices{\TotoAp}{digits=\PfMLongueurCaseAMCPuis,sign=false,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}\end{questionmultx}
              \end{minipage}}
            $
          }%
        \fi
        % Litteral
        \ifnum\PfMAMCPresenceLitteral=1
          \itemtomacro\ListeAMCRep[1]\Toto%
          \StrCut{\Toto}{:}{\TotoAv}{\TotoAp}%
          \StrLen{\fpeval{abs(\TotoAv)}}[\PfMLongueurCaseAMCMono]%
          \StrLen{\fpeval{abs(\TotoAp)}}[\PfMLongueurCaseAMCConst]%
          $
          \begin{minipage}{\PfMAMCBarreFraction}
            \footnotesize%
            \begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}%
              \AMCnumericChoices{\TotoAv}{digits=\fpeval{\PfMLongueurCaseAMCMono},sign,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}%
            \end{questionmultx}%
          \end{minipage}
          \qquad\useKV[ListeReponses]{Lettre}\quad
          \begin{minipage}{\PfMAMCBarreFraction}%
            \stepcounter{PfMNbListeReponsesAMC}\footnotesize\begin{questionmultx}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}%
              \AMCnumericChoices{\TotoAp}{digits=\fpeval{\PfMLongueurCaseAMCConst},sign,borderwidth=0pt,backgroundcol=gray!20,scoreexact=1,hspace=0.25em,vspace=0ex}%
            \end{questionmultx}%
          \end{minipage}
          $
        \fi
      \fi
    \else%
      \begin{question}{\Roman{PfMExo}\roman{PfMNbListeReponsesAMC}}
        \ifPfMDeuxColonnes
          \begin{reponses}%
            \bonne{\ListeAMCRep[1]}%
            \xintFor* ##1 in{\xintSeq{2}{\ListeAMCReplen}}\do{%
              \mauvaise{\ListeAMCRep[##1]}%
            }%
          \end{reponses}%
        \else
          \begin{reponseshoriz}%
            \bonne{\ListeAMCRep[1]}%
            \xintFor* ##1 in{\xintSeq{2}{\ListeAMCReplen}}\do{%
              \mauvaise{\ListeAMCRep[##1]}%
            }%
          \end{reponseshoriz}%
        \fi
        \end{question}
      \fi
    }{}%
}%
\makeatother

\makeatletter
\tcbset{%
  tikzamc/.style={%
    before skip=0em,
    bottom=0pt,
    enhanced,
    breakable,
    colback=white,
    frame hidden,
    overlay unbroken and first={%
      \node[%
      name=A,
      fill=white,
      anchor=west,
      %xshift=\kvtcb@leftlower,
      ] at (frame.north west){\bfseries\sffamily\useKV[AMC]{NomExercice}\ifboolKV[ClesExercices]{Numerote}{ \thePfMExo}{}\ifboolKV[ClesExercices]{AffichageTitre}{\ifboolKV[ClesExercices]{Numerote}{~:~}{\xdef\PfMTitiLgNE{\useKV[Fiche]{NomExercice}}\IfStrEq{\PfMTitiLgNE}{}{}{~:~}}\useKV[ClesExercices]{Titre}}{}};
      %%
      \useKV[ClesExercices]{Ajout}%
%      %% 
    }%
  }%
}%
\makeatother

\def\PfMScoreA{5}%
\def\PfMScoreB{3}%
\def\PfMScoreC{1}%
\def\PfMScoreD{0.1}%

\NewDocumentEnvironment{exerciceAmc}{o}{%
  \setcounter{PfMNbLogo}{1}%
  \setcounter{PfMAMCOpen}{0}%
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#1}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \PfMAvantLesExercices%
  \begin{tcolorbox}[tikzamc]%
  }{%
    \ifnum\thePfMAMCOpen=0\relax
      \PfMApresLesExercices
      \par
      \begin{question}{\Roman{PfMExo}}
        \AMCOpen{lineup=true,lineuptext=~,dots=false,backgroundcol=gray!20}{\mauvaise[RR]{RR}\scoring{\PfMScoreD}\mauvaise[R]{R}\scoring{\PfMScoreC}\mauvaise[V]{V}\scoring{\PfMScoreB}\bonne[VV]{VV}\scoring{\PfMScoreA}}%gray!15
      \end{question}%
    \fi
  \end{tcolorbox}%
}%

%%%%%%%%%%%%%%%%% Fin AMC

%%%%%%%%%%%%%%%%%%% QCM
\NewDocumentEnvironment{exerciceQCM}{o}{%
  \setcounter{PfMNbLogo}{1}%
  \setcounter{PfMAlea}{0}%
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#1}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \PfMAvantLesExercices%
  \begin{tcolorbox}[tikzqcm]%
  }{\end{tcolorbox}%
}%

%\makeatletter
\tcbset{%
  tikzqcm/.style={%
    before skip=0em,
    top=2em,
    bottom=2em,
    enhanced,
%    breakable,
    colback=\ifodd\thePfMExo white\else gray!15\fi,
    sharp corners,
    frame hidden,
    overlay unbroken and first={%
      \node[%
      name=A,
      %fill=white,
      anchor=west,
      % xshift=\kvtcb@leftlower,
      yshift=-1em,
      ] at (frame.north west){\bfseries\sffamily\useKV[QCM]{NomExercice}\ifboolKV[ClesExercices]{Numerote}{ \thePfMExo}{}\ifboolKV[ClesExercices]{AffichageTitre}{\ifboolKV[ClesExercices]{Numerote}{~:~}{\xdef\PfMTitiLgNE{\useKV[Fiche]{NomExercice}}\IfStrEq{\PfMTitiLgNE}{}{}{~:~}}\useKV[ClesExercices]{Titre}}{}};
      % 
      \PfMAffichageSourceQCM%
      %%
      \useKV[ClesExercices]{Ajout}%
%      %% 
    }%
  }%
}%
%\makeatother

\def\PfMIntroductionQCM{%
  Cet exercice est un questionnaire à choix multiples (QCM). {\em Aucune justification n'est ici demandée.}\\Pour chaque question, plusieurs réponses sont proposées, une seule est exacte. Écrire sur cotre copie le numéro de la question et la réponse correspondante.%
}%

\tcbset{%
  userqcm/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\tcbset{%
  userqcmcor/.style={%
    spread upwards=-1cm,colback=gray!5%
  }%
}%

\NewDocumentCommand\TikzQCM{}{%
  \begin{tcolorbox}[userqcm]%
    \begin{center}
      \Large\sffamily \useKV[QCM]{Theme}
    \end{center}
  \end{tcolorbox}%
}%

\NewDocumentCommand\TikzQCMCor{m}{%
  \ifPfMRectoVerso%
    \cleardoublepage%
  \else%
    \clearpage%
  \fi%
  \setKV[QCM]{#1}%
  \begin{tcolorbox}[userqcmcor]%
    \Large\sffamily \useKV[QCM]{Theme} (Correction)
  \end{tcolorbox}%
}

\NewDocumentCommand\ListeReponsesQCM{om}{%
  \ifboolKV[Boulot]{QCM}{%
    \setsepchar{,}\ignoreemptyitems%
    \readlist*\ListeQCMRep{#2}%
    \reademptyitems%
    % on mélange les réponses :)
    \xdef\ListeNumMelangeAv{1}%
    \xintFor* ##1 in{\xintSeq{2}{\ListeQCMReplen}}\do{%
      \xdef\ListeNumMelangeAv{\ListeNumMelangeAv,##1}%
    }%
    \MelangeListe{\ListeNumMelangeAv}{\ListeQCMReplen}%
    \setsepchar{,}\ignoreemptyitems%
    \readlist*\ListeNumMelangeQCM{\faa}%
    \reademptyitems%
    \ExporteListe{ListeW}{\faa}%
    %
    \ifboolKV[QCM]{Colonnes}{%
      \begin{multicols}{\ListeQCMReplen}%
    }{}%
    \begin{enumerate}[leftmargin=*,label=\bfseries\Alph{*}/]
      \xintFor* ##1 in{\xintSeq{1}{\ListeQCMReplen}}\do{%
        \itemtomacro\ListeNumMelangeQCM[##1]\PfMTitiQCM
      \item \ListeQCMRep[\PfMTitiQCM]
      }%
    \end{enumerate}%
    \ifboolKV[QCM]{Colonnes}{%
      \end{multicols}%
    }{}%
  }{}%
}%
%%%%%%%%%%%%%%%% fin QCM


%%% PixelArt
\newtoks\ToksPXTheme%
\newtoks\ToksPXNiveau%
%\newtoks\ToksPXListeSolAv%
%\def\UpdateToksPXListeSolAv#1\nil{\global\addtotok\ToksPXListeSolAv{#1,}}%
\def\UpdateToksPXNiveau#1\nil{\addtotok\ToksPXNiveau{#1}}%
\def\UpdateToksPXTheme#1\nil{\addtotok\ToksPXTheme{#1}}%

%\NewDocumentCommand\PfMPXCount{}{%
%  \stepcounter{PfMLettresPixelArt}%
%  \xdef\PfMCountPX{\csname p\Alph{PfMLettresPixelArt}\endcsname}%
%  \PfMCountPX%
%}%

\newcounter{PfMLettresPixelArt}

\NewDocumentCommand\MPPixelArt{mm}{
  \mplibforcehmode
  \begin{mplibcode}
    path carre[];

    u:=0.5mm;

    color ColorEntier[],ColFond;

    vardef BlocAffichage=
      for k=0 upto 34:
        carre[k]:=(unitsquare scaled u) shifted(u*(k mod 5,5-(k div 5)));
      endfor;
    enddef;
    
    vardef Affichage(expr decomp)=
      save $;
      picture $;
      drawoptions(withpen pensquare scaled0.1);
      $=image(%
        for k=0 upto 34:
          if (substring(k,k+1) of decomp)="1":
            fill carre[k] withcolor ColFond;
          fi;
        endfor;
      );
      drawoptions();
      $
      enddef;

      nblignes:=1;

      decahoriz:=0;

      vardef Test(expr cptk)(text cptnt)=
        pair Decalage;
        Decalage=u*(decahoriz,-8*(nblignes-1));
        decahoriz:=decahoriz+6;
        if substring(cptk,cptk+1) of cptnt="A":draw Affichage("01110100011000110001111111000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="B":draw Affichage("11110100011000111110100011000111110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="C":draw Affichage("01110100011000010000100001000101110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="D":draw Affichage("11100100101000110001100011001011100") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="E":draw Affichage("11111100001000011111100001000011111") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="F":draw Affichage("11111100001000011111100001000010000") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="G":draw Affichage("01110100011000010111100011000101110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="H":draw Affichage("10001100011000111111100011000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="I":draw Affichage("01110001000010000100001000010001110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="J":draw Affichage("00111000100001000010000101001001100") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="K":draw Affichage("10001100101010011000101001001010001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="L":draw Affichage("10000100001000010000100001000011111") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="M":draw Affichage("10001110111010110101100011000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="N":draw Affichage("10001100011100110101100111000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="O":draw Affichage("01110100011000110001100011000101110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="P":draw Affichage("11110100011000111110100001000010000") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="Q":draw Affichage("01110100011000110001101011001001101") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="R":draw Affichage("11110100011000111110101001001010001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="S":draw Affichage("01111100001000001110000010000111110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="T":draw Affichage("11111001000010000100001000010000100") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="U":draw Affichage("10001100011000110001100011000101110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="V":draw Affichage("10001100011000110001100010101000100") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="W":draw Affichage("10101101011010110101101011010101010") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="X":draw Affichage("10001100010101000100010101000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="Y":draw Affichage("10001100011000101010001000010000100") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="Z":draw Affichage("11111000010001000100010001000011111") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="a":draw Affichage("00000000000111100001011111000101111") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="b":draw Affichage("10000100001011011001100011000111110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="c":draw Affichage("00000000000111010000100001000101110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="d":draw Affichage("00001000010110110011100011000101111") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="e":draw Affichage("00000000000111010001111111000001110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="f":draw Affichage("00110010010100011100010000100001000") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="g":draw Affichage("00000011111000110001011110000101110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="h":draw Affichage("10000100001011011001100011000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="i":draw Affichage("00100000000110000100001000010001110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="j":draw Affichage("00010000000011000010000101001001100") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="k":draw Affichage("10000100001001010100110001010010010") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="l":draw Affichage("01100001000010000100001000010001110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="m":draw Affichage("00000000001101010101101011000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="n":draw Affichage("00000000001011011001100011000110001") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="o":draw Affichage("00000000000111010001100011000101110") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="p":draw Affichage("00000000001111010001111101000010000") shifted(Decalage);
        elseif substring(cptk,cptk+1) of cptnt="q":draw Affichage("00000000000110110011011110000100001") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="r":draw Affichage("00000000001011011001100001000010000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="s":draw Affichage("00000000000111010000011100000111110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="t":draw Affichage("01000010001110001000010000100100110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="u":draw Affichage("00000000001000110001100011001101101") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="v":draw Affichage("00000000001000110001100010111000100") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="w":draw Affichage("00000000001010110101101011010101110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="x":draw Affichage("00000000001000101010001000101010001") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="y":draw Affichage("00000000001000110001011110000101110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="z":draw Affichage("00000000001111100010001000100011111") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="0":draw Affichage("01110100011001110101110011000101110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="1":draw Affichage("00100011000010000100001000010001110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="2":draw Affichage("01110100010000100010001000100011111") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="3":draw Affichage("11111000100010000010000011000101110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="4":draw Affichage("00010001100101010010111110001000010") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="5":draw Affichage("11111100001111000001000011000101110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="6":draw Affichage("00110010001000011110100011000101110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="7":draw Affichage("11111000010001000100010000100001000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="8":draw Affichage("01110100011000101110100011000101110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="9":draw Affichage("01110100011000101111000010001001100") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="!":draw Affichage("00100001000010000100000000000000100") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="'":draw Affichage("01100001000100000000000000000000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="(":draw Affichage("00010001000100001000010000010000010") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt=")":draw Affichage("01000001000001000010000100010001000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="*":draw Affichage("00000001001010101110101010010000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="+":draw Affichage("00000001000010011111001000010000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="-":draw Affichage("00000000000000011111000000000000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt=".":draw Affichage("00000000000000000000000000110001100") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt=":":draw Affichage("00000011000110000000011000110000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt=";":draw Affichage("00000011000110000000011000010001000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="<":draw Affichage("00010001000100010000010000010000010") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="=":draw Affichage("00000000001111100000111110000000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt=">":draw Affichage("10000010000010000010001000100010000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="?":draw Affichage("01110100010000100010001000000000100") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="[":draw Affichage("01110010000100001000010000100001110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="]":draw Affichage("01110000100001000010000100001001110") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="`":draw Affichage("01000001000001000000000000000000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="|":draw Affichage("00100001000010000100001000010000100") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt=" ":draw Affichage("00000000000000000000000000000000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="&":draw Affichage("00000100001100011100110001000000000") shifted(Decalage);
%    elseif substring(cptk,cptk+1) of cptnt="$":draw Affichage("00000000000000100001000010000111111") shifted(Decalage);
%    elseif substring(cptk,cptk+1) of cptnt="^":draw Affichage("00100010101000100000000000000000000") shifted(Decalage);
    elseif substring(cptk,cptk+1) of cptnt="_":draw Affichage("00000000000000000000000000000000000") shifted(Decalage);
%    elseif substring(cptk,cptk+1) of cptnt="~":draw Affichage("01000010000111001000010000100001000") shifted(Decalage);
    fi;
enddef;

vardef LCDSeul(text nt)=
  decahoriz:=0;
  ColFond:=black;
    if length(nt)>0:
    for k=0 upto length(nt)-1:
    BlocAffichage;
    Test(k,nt);
    endfor;
    fi;
    enddef;
    
    picture TestLCD;
    TestLCD=image(
    LCDSeul(#1);
    );
    bboxmargin:=3u;
    maxlarg=abs(lrcorner bbox TestLCD - llcorner bbox TestLCD)/u;
    maxhaut=abs(urcorner bbox TestLCD - lrcorner bbox TestLCD)/u;
    for k=0 upto maxlarg-1:
      for l=0 upto maxhaut-1:
        draw (unitsquare scaled u) shifted(llcorner bbox TestLCD+u*(k,l)) withcolor 0.8white;
      endfor;
    endfor;
    draw bbox TestLCD;
    
    draw TestLCD;
    picture Retiens;
    Retiens=currentpicture;
    currentpicture:=nullpicture;
    draw Retiens scaled 2;
  \end{mplibcode}
}%

\NewDocumentCommand\TikzPixelArt{}{%
  \ToksPXNiveau{}%
  \xdef\Titi{"Classe de \useKV[PixelArt]{Niveau}"}%
  \expandafter\UpdateToksPXNiveau\Titi\nil%
  \ToksPXTheme{}%
  \xdef\Toto{"\useKV[PixelArt]{Theme}"}%
  \expandafter\UpdateToksPXTheme\Toto\nil%
  \xdef\ListeAvantCouleurs{\useKV[PixelArt]{ListeCouleurs}}%
  \begin{center}
    \MPPixelArt{\the\ToksPXTheme}{\ListeAvantCouleurs}%
  \end{center}
}%

%\newcounter{PfMPX}[PfMMaquette]
%\setcounter{PfMPX}{0}

\NewDocumentCommand\PfMSolPixelArt{sm}{%
  \ifboolKV[Boulot]{PixelArt}{%
    \stepcounter{PfMLettresPixelArt}%
    \IfBooleanTF{#1}{}{
    \ifboolKV[PixelArt]{Aleatoire}{%
      \hfill\textbf{Lettre~\ListePourLesItems[\thePfMLettresPixelArt]}%
    }{%
      \hfill\textbf{Lettre~\Alph{PfMLettresPixelArt}}%
    }%
    }%
    \expandafter\xdef\csname PfMPXSolution\Alph{PfMLettresPixelArt}\endcsname{#2}%
  }{}%
}%

\NewDocumentEnvironment{exercicePX}{o}{%
  \setcounter{PfMAlea}{0}%
  \setcounter{PfMNbLogo}{1}%
  % Mettre les indications hors-jeu
  \setcounter{RetiensIndic}{0}%
  \useKVdefault[ClesExercices]%
  \setKV[ClesExercices]{#1}%
  \ifboolKV[Boulot]{Input}{\Relecture}{}%
  \setKV[ClesExercices]{BaremeTotal=false,BaremeDetaille=false}%
  \refstepcounter{PfMExo}%
}{}
%%% Fin PixelArt

% Big Ten
\newcounter{PfMLettresBigTen}

\NewDocumentCommand\PfMSolBigTen{m}{%
  \ifboolKV[Boulot]{BigTen}{%
    \stepcounter{PfMLettresBigTen}%
    \expandafter\xdef\csname PfMBigTenSolution\Alph{PfMLettresBigTen}\endcsname{#1}%
  }{}%
}%
%%% Fin BigTen


\def\PfMLogoBeamer{}

%%%%%%%%%%%%%%% Debut Maquette %%%%%%%
% Environnement englobant le tout.
\makeatletter
\newwrite\PfMfile@out%

\IfClassLoadedTF{beamer}{%
  %-> tex.stackexchange.com/questions/605282/beamer-custom-frame-environment-with-options
  \NewDocumentEnvironment{Maquette}{om}{%
    \ifcsname PfMGraineBeamer\endcsname%
      \setKVdefault[Boulot]{Graine=\fpeval{\PfMGraineBeamer+\thePfMMaquette}}%
    \else%
      \def\PfMGraineBeamer{\fpeval{randint(1000)}}%
    \fi%
    \immediate\write\@auxout{\noexpand\expandafter\gdef\noexpand\csname PfMGraineBeamer\endcsname{\csname PfMGraineBeamer\endcsname}}%
    %
    \setcounter{RetiensSol}{0}%
    \setcounter{RetiensRep}{0}%
    \setcounter{RetiensInd}{0}%
    % on remet à zéro le compteur des exercices
    % \setcounter{PfMExo}{0}%
    \setcounter{PfMSOS}{0}%
    % nouvelles valeurs.
    \stepcounter{PfMMaquette}%
    \IfHookExistsTF{env/exercice/after}{\RemoveFromHook{env/exercice/after}[*]\AddToHook{env/exercice/after}[ChoixExo]{\PfMChoixAffichageCorrection\PfMChoixAffichageEntrainement}}{\AddToHook{env/exercice/after}[ChoixExo]{\PfMChoixAffichageCorrection\PfMChoixAffichageEntrainement}}%
    \useKVdefault[Boulot]%
    \setKV[Boulot]{#1}%
    \ifboolKV[Boulot]{CorrigeFin}{%
        \AtEndDocument{%
          \PfMPrepareCorrection{#1}%
          \begin{frame}
            \frametitle{\useKV[Beamer]{Theme}\hfill\raisebox{-0.25\height}{%
                \PfMLogoBeamer}~\phantom{t}}%
            \PfMAffichageCorrige%
          \end{frame}
        }%
      }{}%
    \useKVdefault[Beamer]%
    \setKV[Beamer]{#2}%
    \let\exercice\exerciceBeamer\let\endexercice\endexerciceBeamer%
    \begin{frame}[environment=Maquette,fragile]
      \setcounter{PfMExo}{0}%
      \PfCGraineAlea{\useKV[Boulot]{Graine}}%
      \frametitle{\useKV[Beamer]{Theme}\hfill\raisebox{-0.25\height}{%
        \PfMLogoBeamer}~\phantom{t}}%
    }{%
    \end{frame}
  }%
}{%
\NewDocumentEnvironment{Maquette}{om}{%
  % on remet à zéro les compteurs de solutions : inutile ?
  \setcounter{RetiensSol}{0}%
  \setcounter{RetiensRep}{0}%
  \setcounter{RetiensInd}{0}%
  % on remet à zéro le compteur des exercices
  %\setcounter{PfMExo}{0}%
  \setcounter{PfMSOS}{0}%
  % nouvelles valeurs.
  \stepcounter{PfMMaquette}%
  \immediate\write\@auxout{%
    \string\opcopy{0}{ScoreTotal\thePfMMaquette}
  }%
  %% \opadd*{#1}{ScoreTotal\thePfMMaquette}{ScoreTotal\thePfMMaquette}%
  \useKVdefault[Boulot]%
  \setKV[Boulot]{#1}%
  \if@AssembleCorrections
  \immediate\openout\PfMfile@out \jobname-DefiMq-\thePfMMaquette.tex%
  \immediate\write\PfMfile@out{\unexpanded{\useKVdefault[Boulot]}}%
  \immediate\write\PfMfile@out{\unexpanded{\setKV[Boulot]{#1}}}%
  \ifboolKV[Boulot]{Fiche}{\immediate\write\PfMfile@out{\TikzFicheCor{\unexpanded{#2}}}}{}%
  \ifboolKV[Boulot]{DS}{\immediate\write\PfMfile@out{\TikzDSCor{\unexpanded{#2}}}}{}%
  \ifboolKV[Boulot]{DM}{\immediate\write\PfMfile@out{\TikzDMCor{\unexpanded{#2}}}}{}%
  \ifboolKV[Boulot]{IE}{\immediate\write\PfMfile@out{\TikzIECor{\unexpanded{#2}}}}{}%
  \ifboolKV[Boulot]{QCM}{\immediate\write\PfMfile@out{\TikzQCMCor{\unexpanded{#2}}}}{}%
  \ifboolKV[Boulot]{FdR}{\immediate\write\PfMfile@out{\TikzFdRCor{\unexpanded{#2}}}}{}%
  \ifboolKV[Boulot]{Contrat}{\immediate\write\PfMfile@out{\TikzContratCor{\unexpanded{#2}}}}{}%
  \ifboolKV[Boulot]{Parcours}{\immediate\write\PfMfile@out{\TikzParcoursCor{\unexpanded{#2}}}}{}%
  \immediate\closeout\PfMfile@out%
  \fi
  % options de boulot
  \IfHookExistsTF{env/Maquette/after}{\RemoveFromHook{env/Maquette/after}[*]}{}%
  \AddToHook{env/Maquette/after}[RetiensExo]{\xdef\PfMRetiensLienExoMa{\PfMRetiensLienExoMa,\thePfMExo}}
    %--------------
%  \useKVdefault[Boulot]%
%  \setKV[Boulot]{#1}%
  \ifboolKV[Boulot]{CorrigeSeul}{\setKV[Boulot]{CorrigeFin}}{}%
  \if@Dyslexie%
    \setKV[Boulot]{Dys}%
  \fi%
  \PfMBasculeDys%
  \IfHookExistsTF{env/exercice/after}{\RemoveFromHook{env/exercice/after}[*]\AddToHook{env/exercice/after}[ChoixExo]{\PfMChoixAffichageCorrection\PfMChoixAffichageEntrainement}}{\AddToHook{env/exercice/after}[ChoixExo]{\PfMChoixAffichageCorrection\PfMChoixAffichageEntrainement}}%
  % Test
  \IfHookExistsTF{env/exercice/begin}{\RemoveFromHook{env/exercice/begin}[*]}{}%
  \IfHookExistsTF{env/Maquette/end}{\RemoveFromHook{env/Maquette/end}[*]}{}%
  \ifboolKV[Boulot]{AMC}{%
      \setcounter{PfMNbListeReponsesAMC}{0}%
      \setKV[AMC]{#2}%
      \let\exercice\exerciceAmc\let\endexercice\endexerciceAmc%
      \TikzAMC%
    }{%
  \ifboolKV[Boulot]{OlympiadesAPMEP}{%
    \setKV[OlympiadesAPMEP]{#2}%\TikzOlympiadesAPMEP%
    \let\exercice\exerciceOlympiadesAPMEP\let\endexercice\endexerciceOlympiadesAPMEP%
    \ifboolKV[OlympiadesAPMEP]{Bandeau}{%
        \TikzOlympiadesAPMEP{#2}%
        \bigskip
    }{%
      \xdef\PfMTitreAPMEP{\noexpand\useKV[OlympiadesAPMEP]{Theme}}
      \chapter{\PfMTitreAPMEP}
    }
    \ifboolKV[Boulot]{CorrigeFin}{%
      \AddToHook{env/Maquette/after}[Correction]{%
        \PfMPrepareCorrection{#1}%
        \TikzOlympiadesAPMEPCor{#2}%
        \PfMAffichageCorrectionColonnes%
      }%
    }{}%
  }{%
    \ifboolKV[Boulot]{CAN}{%
      \setKV[CAN]{#2}%
      \setcounter{PfMCNNumQ}{0}%
      \setlength{\PfMLargeurQuestion}{\useKV[CAN]{CoefQ}\linewidth}\setlength{\PfMLargeurReponse}{\useKV[CAN]{CoefR}\linewidth}\setlength{\PfMLargeurJury}{\useKV[CAN]{CoefJ}\linewidth}%
      \let\exercice\ExoCANWrite\let\endexercice\endExoCANWrite%
      \AddToHook{env/exercice/begin}{\setcounter{PfMAlea}{0}}%
      \AddToHook{env/Maquette/end}{%
        \xdef\PfMAncienneGraine{\PfMChoisisGraineAlea{123456789}}%
        \xdef\PfMCANTotalExo{\thePfMExo}%
        \setbox\PfMSauvegardeBox\vbox{%
          \PfMGraineAlea{\thePfMMaquette}%
          \setcounter{PfMExo}{0}%
          \renewcommand{\arraystretch}{2}%
          \begin{longtable}{|c|m{\PfMLargeurQuestion}|>{\centering\arraybackslash}m{\PfMLargeurReponse}|m{\PfMLargeurJury}|}%
            \hhline{~---}%
            \multicolumn{1}{c|}{}&\cellcolor{gray!15}\centering Question&\cellcolor{gray!15}\centering Réponse&\cellcolor{gray!15}\centering\arraybackslash Jury\\%
            \hline%
            \endhead%
            \xintFor* ##1 in {\xintSeq{1}{\PfMCANTotalExo}}\do{%
              \refstepcounter{PfMCNNumQ}\ttfamily{\thePfMCNNumQ}\label{TestCAN-\thePfMMaquette-\thePfMCNNumQ}&\Complement{}\stepcounter{PfMExo}\setcounter{PfMAlea}{0}\input{\jobname-Ma\thePfMMaquette-Ex##1.can}&\CNReponse&\\
              \hline%
            }%
          \end{longtable}%
          \renewcommand{\arraystretch}{1}%
        }%
        \ifboolKV[Boulot]{CorrigeInverse}{%
          \PfMPrepareCorrection{#1}%
          \TikzCANCor{#2}%
          \PfMAffichageCorrectionColonnes%
          \clearpage
          \normalsize%
          \TikzCAN%
          \PfMGraineAlea{\thePfMMaquette}%
          \setcounter{PfMCNNumQ}{0}%
          \setcounter{PfMExo}{0}%
          \renewcommand{\arraystretch}{2}%
          \begin{longtable}{|c|m{\PfMLargeurQuestion}|>{\centering\arraybackslash}m{\PfMLargeurReponse}|m{\PfMLargeurJury}|}%
            \hhline{~---}%
            \multicolumn{1}{c|}{}&\cellcolor{gray!15}\centering Question&\cellcolor{gray!15}\centering Réponse&\cellcolor{gray!15}\centering\arraybackslash Jury\\%
            \hline%
            \endhead%
            \xintFor* ##1 in {\xintSeq{1}{\PfMCANTotalExo}}\do{%
              \refstepcounter{PfMCNNumQ}\ttfamily{\thePfMCNNumQ}\label{TestCAN-\thePfMMaquette-\thePfMCNNumQ}&\Complement{}\stepcounter{PfMExo}\setcounter{PfMAlea}{0}\input{\jobname-Ma\thePfMMaquette-Ex##1.can}&\CNReponse&\\
              \hline%
            }%
          \end{longtable}%
          \renewcommand{\arraystretch}{1}%
        }{%
          \PfMGraineAlea{\PfMAncienneGraine}%
          \TikzCAN%
          \setcounter{PfMCNNumQ}{0}%
          \setcounter{PfMExo}{0}%
          \renewcommand{\arraystretch}{2}%
          \begin{longtable}{|c|m{\PfMLargeurQuestion}|>{\centering\arraybackslash}m{\PfMLargeurReponse}|m{\PfMLargeurJury}|}%
            \hhline{~---}%
            \multicolumn{1}{c|}{}&\cellcolor{gray!15}\centering Question&\cellcolor{gray!15}\centering Réponse&\cellcolor{gray!15}\centering\arraybackslash Jury\\%
            \hline%
            \endhead%
            \xintFor* ##1 in {\xintSeq{1}{\PfMCANTotalExo}}\do{%
              \refstepcounter{PfMCNNumQ}\ttfamily{\thePfMCNNumQ}\label{TestCAN-\thePfMMaquette-\thePfMCNNumQ}&\Complement{}\stepcounter{PfMExo}\setcounter{PfMAlea}{0}\input{\jobname-Ma\thePfMMaquette-Ex##1.can}&\CNReponse&\\
              \hline%
            }%
          \end{longtable}%
          \renewcommand{\arraystretch}{1}%
          \ifboolKV[Boulot]{CorrigeFin}{%
            \ifboolKV[Boulot]{CorrigeInverse}{}{%
              \clearpage
              \PfMPrepareCorrection{#1}%
              \TikzCANCor{#2}%
              \PfMAffichageCorrectionColonnes%
            }%
          }{}%
        }%
      }%
    }{%
      \ifboolKV[Boulot]{FdR}{%
        % \input{PfMMaquetteFdR.tex}%
        \ifboolKV[Boulot]{CorrigeSeul}{}{%
          \setKV[FdR]{#2}\TikzFdR%
        }%
        \let\exercice\exerciceFdR\let\endexercice\endexerciceFdR%
        \ifboolKV[Boulot]{AvecEntrainement}{%
          \AddToHook{env/Maquette/end}[Haltere]{%
            \PfMAffichageEntrainementColonnes%
          }%
        }{}%
        \ifboolKV[Boulot]{CorrigeFin}{%
          \AddToHook{env/Maquette/after}[Correction]{%
            \PfMPrepareCorrection{#1}%
            \TikzFdRCor{#2}%
            \PfMAffichageCorrectionColonnes%
          }%
        }{}%
      }{%
        \ifboolKV[Boulot]{Contrat}{%
          % \input{PfMMaquetteContrat.tex}%
          \ifboolKV[Boulot]{CorrigeSeul}{}{%
            \setKV[Contrat]{#2}\TikzContrat%
          }%
          \let\exercice\exerciceContrat\let\endexercice\endexerciceContrat%
          \ifboolKV[Boulot]{AvecEntrainement}{%
            \AddToHook{env/Maquette/end}[Haltere]{%
              \PfMAffichageEntrainementColonnes%
            }%
          }{}%
          \ifboolKV[Boulot]{CorrigeFin}{%
            \AddToHook{env/Maquette/after}[Correction]{%
              \PfMPrepareCorrection{#1}%
              \TikzContratCor{#2}%
              \PfMAffichageCorrectionColonnes%
            }%
          }{}%
        }{%
          \ifboolKV[Boulot]{Cours}{%
            % \input{PfMMaquetteCours.tex}%
            \setKV[Cours]{#2}%
            \TikzCours%
            \let\exercice\exerciceFiche\let\endexercice\endexerciceFiche%
            \ifboolKV[Boulot]{CorrigeFin}{%
              \AddToHook{env/Maquette/after}[Correction]{%
                \PfMPrepareCorrection{#1}%
                \TikzFicheCor{#2}%
                \PfMAffichageCorrectionColonnes%
              }%
            }{}%
          }{%
            \ifboolKV[Boulot]{RecapBrevet}{%
              % \input{PfMMaquetteRecapBrevet.tex}%
              \setKV[RecapBrevet]{#2}%
              \TikzRecapBrevet%
              \let\exercice\ExerciceRecapBrevet\let\endexercice\endExerciceRecapBrevet%
              \ifboolKV[Boulot]{CorrigeFin}{%
                \AddToHook{env/Maquette/after}[Correction]{%
                  \PfMPrepareCorrection{#1}%
                  \TikzRecapBrevetCor{#2}%
                  \PfMAffichageCorrectionColonnes%
                }%
              }{}%
            }{%
              \ifboolKV[Boulot]{ParcoursPerso}{%
                \setKV[ParcoursPerso]{#2}%
                \DTLloaddb[noheader,keys={PrenomEleve,NomEleve,ListeExo,TypeMaq}]{dataperso}{\useKV[ParcoursPerso]{Fichier}.csv}%
                \let\exercice\exerciceParcoursPerso\let\endexercice\endexerciceParcoursPerso%
                \ifboolKV[Boulot]{CorrigeFin}{\setcounter{PfMCorrigeParcoursPerso}{1}}{}%
                \setcounter{PfMExo}{0}%
                \AtEndDocument{%
                  \PfMRecapitulatif{#1}{#2}%
                }%
              }{%
                \ifboolKV[Boulot]{Parcours}{%
                  % \input{PfMMaquetteParcours.tex}%
                  \ifboolKV[Boulot]{CorrigeSeul}{}{%
                    \setKV[Parcours]{#2}\TikzParcours%
                  }%
                  \let\exercice\exerciceParcours\let\endexercice\endexerciceParcours%
                  \ifboolKV[Boulot]{AvecEntrainement}{%
                    \AddToHook{env/Maquette/end}[Haltere]{%
                      \PfMAffichageEntrainementColonnes%
                    }%
                  }{}%
                  \ifboolKV[Boulot]{CorrigeFin}{%
                    \AddToHook{env/Maquette/after}[Correction]{%
                      \PfMPrepareCorrection{#1}%
                      \TikzParcoursCor{#2}%
                      \PfMAffichageCorrectionColonnes%
                    }%
                  }{}%
                }{%
                  \ifboolKV[Boulot]{PdT}{%
                    % \input{PfMMaquettePdT.tex}%
                    \ifboolKV[Boulot]{CorrigeSeul}{}{%
                      \setKV[PdT]{#2}\TikzPdT%
                    }%
                    \let\exercice\exercicePdT\let\endexercice\endexercicePdT%
                    \ifboolKV[Boulot]{CorrigeFin}{%
                      \AddToHook{env/Maquette/after}[Correction]{%
                        \PfMPrepareCorrection{#1}%
                        \TikzPdTCor{#2}%
                        \PfMAffichageCorrectionColonnes%
                      }%
                    }{}%
                  }{%
                    \ifboolKV[Boulot]{DM}{%
                      % \input{PfMMaquetteDM.tex}%
                      \ifboolKV[Boulot]{CorrigeSeul}{}{%
                        \setKV[DM]{#2}\TikzDM%
                      }%
                      \let\exercice\exerciceDM\let\endexercice\endexerciceDM%
                      \ifboolKV[Boulot]{CorrigeFin}{%
                        \AddToHook{env/Maquette/after}[Correction]{%
                          \PfMPrepareCorrection{#1}%
                          \TikzDMCor{#2}%
                          \PfMAffichageCorrectionColonnes%
                        }%
                      }{}%
                    }{%
                      \ifboolKV[Boulot]{Fiche}{%
                        \ifboolKV[Boulot]{CorrigeSeul}{}{%
                          \setKV[Fiche]{#2}%
                          \TikzFiche%
                        }%
                        \let\exercice\exerciceFiche\let\endexercice\endexerciceFiche%
                        \ifboolKV[Boulot]{AvecEntrainement}{%
                          \AddToHook{env/Maquette/end}[Haltere]{%
                            \PfMAffichageEntrainementColonnes%
                          }%
                        }{}%
                        \ifboolKV[Boulot]{CorrigeFin}{%
                          \ifboolKV[Boulot]{CorrigeAll}{%
                            \AddToHook{env/Maquette/after}[Correction]{%
                              \PfMPrepareCorrection{#1}%
                              \TikzFicheCor{#2}%
                              \ifboolKV[Boulot]{CorrectionColonnes}{\begin{multicols}{\useKV[Boulot]{Colonnes}}}{}%
                              \xintFor* ##1 in{\xintSeq{1}{\thePfMExo}}\do{%
                                \IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.sol}{\textbf{Corrigé de l'exercice ##1}\par\nopagebreak\input{\jobname-Ma\thePfMMaquette-Ex##1.sol}\par\goodbreak}{}%
                              }%
                              \ifboolKV[Boulot]{CorrectionColonnes}{\end{multicols}}{}%
                              \TikzFicheCorRep{#2}%
                              \ifboolKV[Boulot]{CorrectionColonnes}{\begin{multicols}{\useKV[Boulot]{Colonnes}}}{}%
                              \xintFor* ##1 in{\xintSeq{1}{\thePfMExo}}\do{%
                                \IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.rep}{\textbf{Réponse(s) de l'exercice ##1}\par\nopagebreak\input{\jobname-Ma\thePfMMaquette-Ex##1.rep}\par\goodbreak}{}%
                              }%
                              \ifboolKV[Boulot]{CorrectionColonnes}{\end{multicols}}{}%
                              \TikzFicheCorInd{#2}%
                              \ifboolKV[Boulot]{CorrectionColonnes}{\begin{multicols}{\useKV[Boulot]{Colonnes}}}{}%
                              \xintFor* ##1 in{\xintSeq{1}{\thePfMExo}}\do{%
                                \IfFileExists{\jobname-Ma\thePfMMaquette-Ex##1.cdp}{\textbf{Indice(s) pour l'exercice ##1}\par\nopagebreak\input{\jobname-Ma\thePfMMaquette-Ex##1.cdp}\par\goodbreak}{}%
                              }% 
                              \ifboolKV[Boulot]{CorrectionColonnes}{\end{multicols}}{}%
                            }%
                          }{%
                            \AddToHook{env/Maquette/after}[Correction]{%
%                              \useKVdefault[Boulot]%
%                              \setKV[Boulot]{#1}%
%                              %%
%                              \if@Dyslexie
%                                \setKV[Boulot]{Dys}%
%                              \fi
%                              \PfMBasculeDys%
%                              \setlength{\columnseprule}{\useKV[Boulot]{Epaisseur}}%
                              \if@AssembleCorrections
                              \else
                                \PfMPrepareCorrection{#1}%
                                \TikzFicheCor{#2}%
                                \PfMAffichageCorrectionColonnes%
                              \fi%
                            }%
                          }%
                        }{}%
                      }{%
                        \ifboolKV[Boulot]{DS}{%
                          % \input{PfMMaquetteDS.tex}%
                          \ifboolKV[Boulot]{CorrigeSeul}{}{%
                            \setKV[DS]{#2}\TikzDS%
                          }%
                          \let\exercice\exerciceDS\let\endexercice\endexerciceDS%
                          \ifboolKV[Boulot]{BaremeComplet}{%
                            \begin{center}
                              \TableauRecapitulatif
                            \end{center}
                          }{}%
                          \ifboolKV[Boulot]{CorrigeFin}{%
                            \AddToHook{env/Maquette/after}[Correction]{%
                              \if@AssembleCorrections
                              \else
                                \PfMPrepareCorrection{#1}%
                                \TikzDSCor{#2}%
                                \PfMAffichageCorrectionColonnes%
                              \fi%
                            }%
                          }{}%
                        }{%
                          \ifboolKV[Boulot]{IE}{%
                            % \input{PfMMaquetteIE.tex}%
                            \ifboolKV[Boulot]{CorrigeSeul}{}{%
                              \setKV[IE]{#2}\TikzIE%
                            }%
                            \let\exercice\exerciceDS\let\endexercice\endexerciceDS%On garde exerciceDS
                            \ifboolKV[Boulot]{CorrigeFin}{%
                              \AddToHook{env/Maquette/after}[Correction]{%
                                \PfMPrepareCorrection{#1}%
                                \TikzIECor{#2}%
                                \PfMAffichageCorrectionColonnes%
                              }%
                            }{}%
                          }{%
                            \ifboolKV[Boulot]{Kholle}{%
                              % \input{PfMMaquetteKholle.tex}%
                              \setKV[Kholle]{#2}%
                              \TikzKholle%
                              \let\exercice\exerciceKholle\let\endexercice\endexerciceKholle%
                              \ifboolKV[Kholle]{CR}{}{%
                                \ifboolKV[Boulot]{CorrigeFin}{%
                                  \AddToHook{env/Maquette/after}[Correction]{%
                                    \TikzKholleCor{#2}%
                                    \TikzKholleCor{#2}%
                                    \TikzKholleCor{#2}%
                                    \PfMAffichageCorrige%
                                  }%
                                }{}%
                              }%
                            }{%
                              \ifboolKV[Boulot]{LivreHeros}{%
                                \setKV[LivreHeros]{#2}%
                                \TikzLivreHeros%
                                \let\exercice\ExoGBWrite\let\endexercice\endExoGBWrite%
                                \AddToHook{env/Maquette/end}{%
                                  \xdef\PfMListeExoGB{}%
                                  \xintFor* ##1 in{\xintSeq{2}{\thePfMExo}}\do{%
                                    \xdef\PfMListeExoGB{\PfMListeExoGB,##1}%
                                  }%
                                  \MelangeListe{\PfMListeExoGB}{\fpeval{\thePfMExo-1}}%
                                  \xdef\PfMFooMelange{1,\faa}%
                                  \setsepchar{,}\ignoreemptyitems\readlist*\ListePerm{\PfMFooMelange}\reademptyitems%
                                  \phantomsection{}
                                  \addcontentsline{toc}{section}{\useKV[LivreHeros]{Theme}}%
                                  \setlength{\columnseprule}{\useKV[Boulot]{Epaisseur}}%
                                  \ifboolKV[Boulot]{CorrectionColonnes}{\begin{multicols}{\useKV[Boulot]{Colonnes}}}{}%
                                  \xintFor* ##1 in{\xintSeq{1}{\thePfMExo}}\do{%
                                    \itemtomacro\ListePerm[##1]\PfMPermute%
                                    \begin{tcolorbox}[tikzLH,title=##1]%
                                      \refstepcounter{PfMGameBook}%
                                      \input{\jobname-Ma\thePfMMaquette-Ex\PfMPermute.gb}%
                                    \end{tcolorbox}%
                                  }%
                                  \ifboolKV[Boulot]{CorrectionColonnes}{\end{multicols}}{}%
                                }%
                              }{%
                                \ifboolKV[Boulot]{PixelArt}{%
                                  \setcounter{PfMLettresPixelArt}{0}%
                                  \setKV[PixelArt]{#2}%
                                  \setlength{\PfMLargeurTableauPixelArt}{\useKV[PixelArt]{LargeurTab}}%
                                  \ifboolKV[PixelArt]{Aleatoire}{%
                                      \StrLen{\useKV[PixelArt]{Lettres}}[\PfMNbLettres]%
                                      \ifboolKV[PixelArt]{Diversion}{%
                                        \xdef\PfMNbLettres{\fpeval{\PfMNbLettres+1}}%
                                      }{}%
                                      \ChoixSommet{\PfMNbLettres}{S}%
                                      \xdef\ListePourLesItemsAv{\pA}%
                                      \setcounter{PfMLettresPixelArt}{1}
                                      \xintFor* ##1 in{\xintSeq{2}{\PfMNbLettres}}\do{%
                                        \stepcounter{PfMLettresPixelArt}%
                                        \xdef\ListePourLesItemsAv{\ListePourLesItemsAv,\csname p\Alph{PfMLettresPixelArt}\endcsname}%
                                      }%
                                      \setsepchar{,}\ignoreemptyitems\readlist*\ListePourLesItems{\ListePourLesItemsAv}\reademptyitems%
                                      \setcounter{PfMLettresPixelArt}{0}%{-1}%
                                      \setKVdefault[PfMPixelArt]{ListeNombres={\ListePourLesItemsAv}}%
                                    }{}%
                                  \TikzPixelArt%
                                  \let\exercice\exercicePX\let\endexercice\endexercicePX%
                                  \AddToHook{env/Maquette/end}{%
                                    \StrLen{\useKV[PixelArt]{Lettres}}[\PfMNbLettres]%
                                    \ifboolKV[PixelArt]{Diversion}{%
                                        \xdef\PfMNbLettres{\fpeval{\PfMNbLettres+1}}%
                                        \PfMSolPixelArt*{\PfMListePourLesIntrus[1]}%
                                      }{}%
                                    \ifnum\thePfMLettresPixelArt=\fpeval{\PfMNbLettres}\relax
                                      \xdef\PfMListeExoPX{}%
                                      \xintFor* ##1 in{\xintSeq{1}{\PfMNbLettres}}\do{%
                                        \xdef\PfMListeExoPX{\PfMListeExoPX,##1}%
                                      }%
                                      \MelangeListe{\PfMListeExoPX}{\PfMNbLettres}%
                                      \xdef\PfMFooMelange{\faa}%
                                      \xdef\PfMListeCouleursAv{\useKV[PixelArt]{ListeCouleurs}}%
                                      \ifboolKV[PixelArt]{Diversion}{%
                                        \xdef\PfMListeCouleursAv{\PfMListeCouleursAv,\PfMListePourLesIntrus[2]}%
                                      }{}%
                                      \setsepchar{,}\ignoreemptyitems%
                                      \readlist*\ListePerm{\PfMFooMelange}%
                                      \readlist*\ListeCouleursPX{\PfMListeCouleursAv}%
                                      \reademptyitems%
%                                      Le nombre de couleurs est \ListeCouleursPXlen.\\
%                                      Le nombre de lettres est \PfMNbLettres\\
                                      \ifnum\fpeval{\ListeCouleursPXlen}=\fpeval{\PfMNbLettres}\relax
                                        \ifboolKV[PixelArt]{CoupureTableau}{%
                                          \begin{center}
                                            \quotient{\PfMNbLettres}{\useKV[PixelArt]{CoupeTableau}}%
                                            \modulo{\PfMNbLettres}{\useKV[PixelArt]{CoupeTableau}}%
                                            \xintFor* ##1 in{\xintSeq{1}{\the\intquotient}}\do{%
                                              \begin{tabular}{|*{\useKV[PixelArt]{CoupeTableau}}{>{\centering\arraybackslash}m{\PfMLargeurTableauPixelArt}|}}%
                                                \hline%
                                                \xintFor* ##2 in{\xintSeq{1}{\useKV[PixelArt]{CoupeTableau}}}\do{%
                                                \itemtomacro\ListePerm[\fpeval{\useKV[PixelArt]{CoupeTableau}*(##1-1)+##2}]\PfMPermute%
                                                \itemtomacro\ListeCouleursPX[\PfMPermute]\Toto%
                                                \xdef\Titi{\Toto}%
                                                \cellcolor{\Titi}\xintifForLast{}{&}%\Titi
                                                                                    }\\
                                                \hline%
                                                \xintFor* ##2 in{\xintSeq{1}{\useKV[PixelArt]{CoupeTableau}}}\do{%
                                                \itemtomacro\ListePerm[\fpeval{\useKV[PixelArt]{CoupeTableau}*(##1-1)+##2}]\PfMPermute%
                                                \setcounter{PfCenumi}{\PfMPermute}
                                                \expandafter\xdef\csname PfMPXPourRetenir\endcsname{\csname PfMPXSolution\Alph{PfCenumi}\endcsname}%
                                                \PfMPXPourRetenir
                                                \xintifForLast{}{&}%
                                                                        }\\
                                                \hline
                                              \end{tabular}\par%
                                            }%
                                            \ifnum\remainder>0\relax
                                            \begin{tabular}{|*{\the\remainder}{>{\centering\arraybackslash}m{\PfMLargeurTableauPixelArt}|}}%
                                              \hline
                                              \xintFor* ##2 in{\xintSeq{1}{\the\remainder}}\do{%
                                              \itemtomacro\ListePerm[\fpeval{\useKV[PixelArt]{CoupeTableau}*\the\intquotient+##2}]\PfMPermute%
                                              \itemtomacro\ListeCouleursPX[\PfMPermute]\Toto%
                                              \xdef\Titi{\Toto}%
                                              \cellcolor{\Titi}\xintifForLast{}{&}%
                                                                                  }\\
                                              \hline
                                              \xintFor* ##2 in{\xintSeq{1}{\the\remainder}}\do{%
                                              \itemtomacro\ListePerm[\fpeval{\useKV[PixelArt]{CoupeTableau}*\the\intquotient+##2}]\PfMPermute%
                                              \setcounter{PfCenumi}{\PfMPermute}
                                              \expandafter\xdef\csname PfMPXPourRetenir\endcsname{\csname PfMPXSolution\Alph{PfCenumi}\endcsname}%
                                              \PfMPXPourRetenir
                                              \xintifForLast{}{&}%
                                                                 }\\
                                              \hline
                                            \end{tabular}
                                            \fi
                                          \end{center}
                                        }{%
                                          \begin{center}
                                            \begin{tabular}{|*{\PfMNbLettres}{>{\centering\arraybackslash}m{\PfMLargeurTableauPixelArt}|}}
                                              \hline%
                                              \xintFor* ##1 in{\xintSeq{1}{\PfMNbLettres}}\do{%
                                              \itemtomacro\ListePerm[##1]\PfMPermute%
                                              \itemtomacro\ListeCouleursPX[\PfMPermute]\Toto%
                                              \xdef\Titi{\Toto}%
                                              \cellcolor{\Titi}\xintifForLast{}{&}
                                                                                  }\\
                                              \hline
                                              \xintFor* ##1 in{\xintSeq{1}{\PfMNbLettres}}\do{%
                                              \itemtomacro\ListePerm[##1]\PfMPermute%
                                              \setcounter{PfCenumi}{\PfMPermute}
                                                \expandafter\xdef\csname PfMPXPourRetenir\endcsname{\csname PfMPXSolution\Alph{PfCenumi}\endcsname}%
                                                \PfMPXPourRetenir
                                              \xintifForLast{}{&}
                                                                      }\\
                                              \hline
                                            \end{tabular}
                                          \end{center}%
                                        }
                                        \begin{center}
                                          \PfMPixelArt[#2]{\useKV[PixelArt]{Fichier}}%
                                        \end{center}
                                      \else
                                        Le nombre de couleurs et le nombre de lettres ne correspondent pas.
                                      \fi
                                    \else
                                      \ifnum\thePfMLettresPixelArt<\fpeval{\PfMNbLettres}\relax
                                        Il manque des éléments de solutions.
                                      \else
                                        Il y a trop d'éléments de solutions.
                                      \fi
                                    \fi
                                  }%
                                }{%
                                  \ifboolKV[Boulot]{QCM}{%
                                    \setKV[QCM]{#2}%
                                    \TikzQCM%
                                    \let\exercice\exerciceQCM\let\endexercice\endexerciceQCM%
                                    \ifboolKV[Boulot]{CorrigeFin}{%
                                      \AddToHook{env/Maquette/after}[Correction]{%
                                        \PfMPrepareCorrection{#1}%
                                        \TikzQCMCor{#2}%
                                        \PfMAffichageCorrectionColonnes%
                                      }%
                                    }{}%
                                  }{%
                                    \ifboolKV[Boulot]{JeuPuzzle}{%
                                      \let\exercice\ExoGBWrite\let\endexercice\endExoGBWrite%
                                      \AddToHook{env/Maquette/end}{%
                                        \clearpage
                                        \begin{tikzpicture}[remember picture,overlay]
                                          \coordinate (P) at (current page.north west);
                                          \node[anchor=north west,xshift=1cm,yshift=-1cm] at (P){\MPPuzzlePage};
                                          \coordinate[xshift=5.5cm,yshift=-5.65cm] (A1) at (P);
                                          \coordinate[xshift=14.5cm,yshift=-5.65cm] (A2) at (P);
                                          \coordinate[xshift=23.5cm,yshift=-5.65cm] (A3) at (P);
                                          \coordinate[xshift=5.5cm,yshift=-14.95cm] (A4) at (P);
                                          \coordinate[xshift=14.5cm,yshift=-14.95cm] (A5) at (P);
                                          \coordinate[xshift=23.5cm,yshift=-14.95cm] (A6) at (P);
                                          \xintFor* ##1 in{\xintSeq{1}{6}}\do{%
                                            \node at (A##1) {\begin{minipage}{6.5cm}
                                                \input{\jobname-Ma\thePfMMaquette-Ex##1.gb}%
                                              \end{minipage}
                                            };
                                          }%
                                        \end{tikzpicture}
                                      }%
                                    }{%
                                      \ifboolKV[Boulot]{BigTen}{%
                                        %
                                        \setcounter{PfMLettresBigTen}{0}%  
                                        \setKV[Fiche]{#2}%
                                        \setKV[BigTen]{#2}%
                                        \TikzFiche%
                                        \setlength{\PfMLargeurTableauBigTen}{\useKV[BigTen]{LargeurTab}}%
                                        \let\exercice\exerciceFiche\let\endexercice\endexerciceFiche%
                                        \AddToHook{env/Maquette/end}{%
                                          \xdef\PfMListeExoPX{}%
                                          \xintFor* ##1 in{\xintSeq{1}{\thePfMLettresBigTen}}\do{%
                                            \xdef\PfMListeExoPX{\PfMListeExoPX,##1}%
                                          }%
                                          \MelangeListe{\PfMListeExoPX}{\thePfMLettresBigTen}%
                                          \setsepchar{,}\ignoreemptyitems%
                                          \readlist*\ListePerm{\faa}%
                                          \reademptyitems%
                                          \begin{tcolorbox}
                                          \ifboolKV[BigTen]{CoupureTableau}{%
                                              \begin{center}
                                              \large
                                              \quotient{\thePfMLettresBigTen}{\useKV[BigTen]{CoupeTableau}}%
                                              \modulo{\thePfMLettresBigTen}{\useKV[BigTen]{CoupeTableau}}%
                                              \xintFor* ##1 in{\xintSeq{1}{\the\intquotient}}\do{%
                                                \begin{tabular}{*{\useKV[BigTen]{CoupeTableau}}{>{\centering\arraybackslash}m{\PfMLargeurTableauBigTen}}}%
%                                                  \hline
                                                  \xintFor* ##2 in{\xintSeq{1}{\useKV[BigTen]{CoupeTableau}}}\do{%
                                                  \itemtomacro\ListePerm[\fpeval{\useKV[BigTen]{CoupeTableau}*(##1-1)+##2}]\PfMPermute%
                                                  \setcounter{PfCenumi}{\PfMPermute}
                                                  \expandafter\xdef\csname PfMBigTenPourRetenir\endcsname{\csname PfMBigTenSolution\Alph{PfCenumi}\endcsname}%
                                                  \PfMBigTenPourRetenir
                                                  \xintifForLast{}{&}%
                                                                     }\\
%                                                  \ifnum\remainder=0\relax
%                                                  \hline
%                                                  \fi
                                                \end{tabular}\par%
                                              }%
                                              \ifnum\remainder>0\relax
                                                \begin{tabular}{*{\the\remainder}{>{\centering\arraybackslash}m{\PfMLargeurTableauBigTen}}}%
                                                  \xintFor* ##2 in{\xintSeq{1}{\the\remainder}}\do{%
                                                  \itemtomacro\ListePerm[\fpeval{\useKV[BigTen]{CoupeTableau}*\the\intquotient+##2}]\PfMPermute%
                                                  \setcounter{PfCenumi}{\PfMPermute}
                                                  \expandafter\xdef\csname PfMBigTenPourRetenir\endcsname{\csname PfMBigTenSolution\Alph{PfCenumi}\endcsname}%
                                                  \PfMBigTenPourRetenir
                                                  \xintifForLast{}{&}%
                                                                     }\\
%                                                  \hline
                                                \end{tabular}
                                              \fi
                                            \end{center}
                                          }{%
                                            \begin{center}
                                              \large
                                              \begin{tabular}{*{\thePfMLettresBigTen}{>{\centering\arraybackslash}m{\PfMLargeurTableauBigTen}}}
%                                                \hline
                                                \xintFor* ##1 in{\xintSeq{1}{\thePfMLettresBigTen}}\do{%
                                                \itemtomacro\ListePerm[##1]\PfMPermute%
                                                \setcounter{PfCenumi}{\PfMPermute}
                                                \expandafter\xdef\csname PfMBigTenPourRetenir\endcsname{\csname PfMBigTenSolution\Alph{PfCenumi}\endcsname}%
                                                \PfMBigTenPourRetenir
                                                \xintifForLast{}{&}
                                                                   }\\
%                                                \hline
                                              \end{tabular}
                                            \end{center}%
                                          }%
                                        \end{tcolorbox}
                                        }%                                    
                                      }{}%
                                    }%
                                  }%
                                }%
                              }%
                            }%
                          }%
                        }%
                      }%
                    }%
                  }%
                }%
              }%
            }%
          }%
        }%
      }%
    }%
  }%
}%
}%
}{}%
\makeatother
%D'après JCC
% Package pour gérer les nombres pseudo-aléatoires
\makeatletter
\input{random}

% Pour toutes les macros de liste, le premier paramètre est le nom de
% la macro représentant la liste.

% macro pour tester si une liste est vide
\def\empty@list{}

% Macro pour définir une nouvelle liste
\newcommand\PfMdefinelist[2]{\def#1{#2}}

% Macro pour ajouter un élément en fin de liste
\newcommand\push[2]{%
  \ifx\\#2\\%
    \PackageError{randomlist}
                 {You can't push an empty value.}
                 {Arg 2 of \string\pushlist is empty.}%
  \else
    \ifx#1\empty@list
      \def#1{#2}%
    \else
      \edef#1{#1,#2}%
    \fi
  \fi
}

% Macro pour retirer le premier élément d'une liste
\newcommand\pop[2]{%
  \getwidth{#1}{\RL@temp}%
  \ifnum\RL@temp = 0
    % cas de la liste vide
    \PackageError{randomlist}
                 {You can't pop an empty list.}
                 {There is no value to pull in list #1.}%
  \else\ifnum\RL@temp = 1
    % cas de la liste avec un seul élément
    \edef#2{#1}%
    \def#1{}%
  \else
    % cas de la liste avec au moins deux éléments
    \expandafter\@@poplist#1,\@nil#1#2%
  \fi\fi
}
\def\@@poplist#1,#2,\@nil#3#4{%
  \def#4{#1}%
  \def#3{#2}%
}

% Macro comptant le nombre d'élément d'une liste.
\newcount\RL@cnta
\newcommand\getwidth[2]{%
  \RL@cnta \z@
  \unless\ifx#1\empty@list
    \expandafter\@countlist#1,\@nil,%
  \fi
  \edef#2{\the\RL@cnta}%
}
\def\@countlist#1,{%
  \def\RL@arg{#1}%
  \unless\ifx\RL@arg\@nnil
    \advance\RL@cnta \@ne
    \expandafter\@countlist
  \fi
}

% Macro d'extraction de la nieme valeur
\newcommand\extract[3]{%
  % #1 = liste
  % #2 = indice
  % #3 = macro de retour de la nieme valeur
  % On vérifie si la longueur de la liste est suffisante
  \getwidth{#1}{\RL@temp}%
  \ifnum#2>\RL@temp
    \PackageError{randomlist}
                 {Value number #2 doesn't exist in list #1}
                 {List #1 has only \RL@temp\ values}%
  \else
    \RL@cnta #2
    % On initialise une liste temporaire qui se remplira avec les
    % éléments non extraits
    \def\RL@temp{}%
    % Lancement de la lecture récursive de la liste
    \expandafter\RL@extract#1,\@nil,%
    % On met la valeur extraite dans la macro prévue
    \edef#3{\RL@return}%cp a remplacé edef par xdef
    % La liste est celle sans l'élément extrait
    \let#1\RL@temp
  \fi
}
\def\RL@extract#1,{%
  % Dans cette étape, on ne peut pas atteindre la fin de la liste, il
  % faut juste repérer l'élément à extraire
  \advance\RL@cnta \m@ne
  \ifnum\RL@cnta = 0
    % L'élément est atteint, on le sauvegarde
    \def\RL@return{#1}%
    % et on appelle la macro récursive de fin de lecture.
    \expandafter\RL@@extract
  \else
    % L'élément n'est pas atteint, on augmente la liste temporaire
    % on protège d'éventuelles virgule avec des accolades
    \edef\RL@temp{\RL@temp,{#1}}%
    % et on réalise l'appel récursif
    \expandafter\RL@extract
  \fi
}
\def\RL@@extract#1,{%
  % L'élément a été extrait, on lit le reste de la liste pour mettre à
  % jour la liste temporaire
  \def\RL@arg{#1}%
  \ifx\RL@arg\@nnil
    % Si la liste est vide, on place une virgule
    \ifx\RL@temp\empty
      \def\RL@temp{,}%
    \fi
    % La fin de la liste est atteinte, il faut supprimer la virgule
    % initiale de la liste temporaire
    \expandafter\RL@@@extract\RL@temp\@nil
  \else
    % On n'a pas atteint la fin de liste, on augmente la liste
    % temporaire avec l'élément lu et on réalise l'appel récursif
    % l'élément ajouté est protégé avec des accolades au cas où il
    % contiendrait des virgules.
    \edef\RL@temp{\RL@temp,{#1}}%
    \expandafter\RL@@extract
  \fi
}
\def\RL@@@extract,#1\@nil{\def\RL@temp{#1}}

% Extraction de l'élément <n> de la liste. Le choix de <n> étant
% aléatoire
\newcount\RL@cntb
\newcommand\randomextract[2]{%
  % Le choix aléatoire se fait dans l'intervalle [1,max de la liste]
  % donc on commence par récupérer l'indice maximum de la liste.
  \getwidth{#1}{\RL@temp}%
  % Nombre aléatoire dans le compteur \RL@cntb
  \setrannum{\RL@cntb}{1}{\RL@temp}%
  % Appel de la macro d'extraction
  \extract{#1}{\the\RL@cntb}{#2}%
}
%
% Initialisation du germe en gardant la même valeur toutes les #2
% compilations. Lors de la première compilation, c'est #1 qui sera le
% germe (si valeur vide, on laisse faire random)
\newcommand\initrandomlist[2][]{%
  \ifdefined\randomlistseed
    % Si le germe existe, c'est qu'il a été déclaré dans le
    % fichier .aux avec le compteur de compilation. Le germe et le
    % compteur de compilation existent et sont à jour.
  \else
    % Si le fichier aux n'a pas déclaré de compteur \randomlistseed
    % on considère qu'on est à la première compilation donc qu'on
    % compile avec un nouveau germe et un compteur de compilation à
    % un. Dans ce cas particulier, on laisse random.tex choisir le
    % germe.
    \newcount\randomlistseed
    \ifx\\#1\\
      % si l'argument optionnel est vide, on laisse faire random
      \nextrandom
      \randomlistseed \randomi
    \else
      % sinon, on prend cet argument comme germe initial
      \randomlistseed #1
    \fi
    \newcount\randomlistcompile
    \randomlistcompile \@ne
  \fi
  % Utilisation du germe adéquat pour la compilation en cours.
  \randomi\randomlistseed
  % Préparation de la compilation suivante (dans le fichier .aux)
  % On regarde si le nombre de compilations est égale  à zéro modulo #2 
  \ifnum\numexpr(\randomlistcompile/#2)*#2-\randomlistcompile=0
    % Si le nombre de compilations avec le même germe est atteint
    % on changera le germe à la prochaine compilation.
    \immediate\write\@mainaux{%
      \string\newcount\string\randomlistseed
    }%
    % modification du germe (sans laisser faire random sinon cela ne
    % change pas au cours de chaque minute)
    \ifnum\randomlistseed>2147483646
      \randomlistseed \z@
    \else
      \advance\randomlistseed \@ne
    \fi
    \immediate\write\@mainaux{%
      \string\global\string\randomlistseed=\the\randomlistseed
    }%
  \else
    % Il faut faire encore des compilations avec le même germe, on
    % sauvegarde le germe et le compteur de compilation dans le
    % fichier .aux.
    \immediate\write\@mainaux{%
      \string\newcount\string\randomlistseed
    }%
    \immediate\write\@mainaux{%
      \string\global\string\randomlistseed=\the\randomlistseed
    }%
  \fi
  % Dans tous les cas, on augmente le compteur de compilation
    \immediate\write\@mainaux{%
      \string\newcount\string\randomlistcompile
    }%
    \advance\randomlistcompile \@ne
    \immediate\write\@mainaux{%
      \string\global\string\randomlistcompile=\the\randomlistcompile
    }%
}
\makeatother
\newcommand\initEnsemblede{%
  \PfMdefinelist{\EnsembleDe}{%
    {2,4,6,8,10,12},%
    {1,3,5,7,9,11},%
    {2,3,5,7,11,13},%
  }
}

\newcommand\GetValeurDe[1]{%
  \extract{\EnsembleDe}{#1}{\DeChoisi}%
  \randomextract{\DeChoisi}{\NbDeChoisi}%
}

\def\PfMListeNombresPremiers{2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97}
  

\newcommand\initpremiers{%
  \PfMdefinelist{\listpremiers}{13,17,19,23,29,31,37,41,43,47}%
}

\newcommand\initPremiers{%
  \PfMdefinelist{\listPremiers}{71,73,79,83,89,97,101,103,107,109,113,127,131,137,139}%
}

\newcommand\getpremier{%
  \randomextract{\listpremiers}{\NbPremier}
}%

\newcommand\getPremier{%
  \randomextract{\listPremiers}{\NBPremier}
}%

\newcommand\getpytha{%
  \randomextract{\tripletspythaentier}{\triplet}%
  \extract{\triplet}{3}{\grand}% le troisième et le plus grand
  \randomextract{\triplet}{\cote}%
  \randomextract{\triplet}{\autre}%
}

\newcommand\initalpha{%
  \PfMdefinelist{\alphas}{b,c,d,e,f}
}
\newcommand\getalpha{%
  \randomextract{\alphas}{\alphaA}%
}%

\newcommand\initsommet{%
  \PfMdefinelist{\sommets}{A,B,C,D,E,F,G,H,I,J,K,L,M,% pas d'espace ?
                        N,O,P,Q,R,S,T,U,V,W,X,Y,Z}%
}

\newcommand\initsommetrep{%
  \PfMdefinelist{\sommets}{A,B,C,D,E,F,G,H,I,J,K,L,M,% pas d'espace ?
                        N,P,Q,R,S,T,U,V,W,X,Y,Z}%
}

\newcommand\gettri{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
}

\newcommand\getquad{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
  \randomextract{\sommets}{\pD}%
}

\newcommand\getpenta{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
  \randomextract{\sommets}{\pD}%
  \randomextract{\sommets}{\pE}%
}

\newcommand\gethexa{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
  \randomextract{\sommets}{\pD}%
  \randomextract{\sommets}{\pE}%
  \randomextract{\sommets}{\pF}%
}

\newcommand\gethepta{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
  \randomextract{\sommets}{\pD}%
  \randomextract{\sommets}{\pE}%
  \randomextract{\sommets}{\pF}%
  \randomextract{\sommets}{\pG}%
}

\newcommand\getocto{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
  \randomextract{\sommets}{\pD}%
  \randomextract{\sommets}{\pE}%
  \randomextract{\sommets}{\pF}%
  \randomextract{\sommets}{\pG}%
  \randomextract{\sommets}{\pH}%
}

\newcommand\getnonna{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
  \randomextract{\sommets}{\pD}%
  \randomextract{\sommets}{\pE}%
  \randomextract{\sommets}{\pF}%
  \randomextract{\sommets}{\pG}%
  \randomextract{\sommets}{\pH}%
  \randomextract{\sommets}{\pI}%
}

\newcommand\gettreize{%
  \randomextract{\sommets}{\pA}%
  \randomextract{\sommets}{\pB}%
  \randomextract{\sommets}{\pC}%
  \randomextract{\sommets}{\pD}%
  \randomextract{\sommets}{\pE}%
  \randomextract{\sommets}{\pF}%
  \randomextract{\sommets}{\pG}%
  \randomextract{\sommets}{\pH}%
  \randomextract{\sommets}{\pI}%
  \randomextract{\sommets}{\pJ}%
  \randomextract{\sommets}{\pK}%
  \randomextract{\sommets}{\pL}%
  \randomextract{\sommets}{\pM}%
}

\PfMdefinelist{\quadruplets}{%
{2{,}8,9{,}6,6,8},%10
{3{,}2,12{,}6,5,12},%13
{6{,}6,11{,}2,5,12},%13
{7{,}8,10{,}4,5,12},%13
{3{,}2,12{,}6,6{,}6,11{,}2},%13
{3{,}2,12{,}6,7{,}8,10{,}4},%13
{6{,}6,11{,}2,7{,}8,10{,}4},%13
{7{,}8,10{,}4,6{,}6,11{,}2},%13
{4{,}2,14{,}4,9,12},%15
{2{,}6,16{,}8,7{,}2,15{,}4},%17
{8,15,10{,}2,13{,}6},%17
{2{,}6,16{,}8,8,15},%17
{2{,}6,16{,}8,10{,}2,13{,}6},%17
{5{,}6,19{,}2,12,16},%20
{12,16,5{,}6,19{,}2},%20
{7,24,8{,}8,23{,}4},%25
{7,24,15,20},%25
{8{,}8,23{,}4,15,20},%25
{6{,}4,25{,}2,10,24},%26
{6{,}4,25{,}2,13{,}2,22{,}4},%26
{10,24,13{,}2,22{,}4},%26
{10,24,15{,}6,20{,}8},%26
{13{,}2,22{,}4,15{,}6,20{,}8},%26
{9,40,16{,}8,37{,}4},%41
{24{,}6,32{,}8,26{,}6,31{,}2},%41
{9,40,26{,}6,31{,}2},%41
{24{,}6,32{,}8,16{,}8,37{,}4}%41
}%

\PfMdefinelist{\Quadruplets}{%pour un fonctionnement avec \fpeval
{2.8,9.6,6,8},%10
{3.2,12.6,5,12},%13
{6.6,11.2,5,12},%13
{7.8,10.4,5,12},%13
{3.2,12.6,6.6,11.2},%13
{3.2,12.6,7.8,10.4},%13
{6.6,11.2,7.8,10.4},%13
{7.8,10.4,6.6,11.2},%13
{4.2,14.4,9,12},%15
{2.6,16.8,7.2,15.4},%17
{8,15,10.2,13.6},%17
{2.6,16.8,8,15},%17
{2.6,16.8,10.2,13.6},%17
{5.6,19.2,12,16},%20
{12,16,5.6,19.2},%20
{7,24,8.8,23.4},%25
{7,24,15,20},%25
{8.8,23.4,15,20},%25
{6.4,25.2,10,24},%26
{6.4,25.2,13.2,22.4},%26
{10,24,13.2,22.4},%26
{10,24,15.6,20.8},%26
{13.2,22.4,15.6,20.8},%26
{9,40,16.8,37.4},%41
{24.6,32.8,26.6,31.2},%41
{9,40,26.6,31.2},%41
{24.6,32.8,16.8,37.4}%41
}%

\PfMdefinelist{\tripletspytha}{{2{,}8,9{,}6,10},{6,8,10},%10
{3{,}2,12{,}6,13},{5,12,13},%13
{6{,}6,11{,}2,13},{7{,}8,10{,}4,13},%13
{4{,}2,14{,}4,15},{9,12,15},%15
{2{,}6,16{,}8,17},{7{,}2,15{,}4,17},%17
{8,15,17},{10{,}2,13{,}6,17},%17
{5{,}6,19{,}2,20},{12,16,20},%20
{7,24,25},{8{,}8,23{,}4,25},%25
{15,20,25},%25
{8{,}8,23{,}4,25},%25
{6{,}4,25{,}2,26},{10,24,26},%26
{13{,}2,22{,}4,26},%26
{15{,}6,20{,}8,26},%26
{9,40,41},{16{,}8,37{,}4,41},%41
{24{,}6,32{,}8,41},{26{,}6,31{,}2,41}%41
}%

\PfMdefinelist{\tripletspythaentier}{%
{3,4,5},{5,12,13},{6,8,10},{7,24,25},{8,15,17},{9,12,15},{9,40,41},{10,24,26},{11,60,61},{12,16,20},{12,35,37},{13,84,85},{14,48,50},{15,20,25},{15,36,39},{16,30,34},{16,63,65},{18,24,30},{18,80,82},{20,21,29},{20,48,52},{21,28,35},{21,72,75},{24,32,40},{24,45,51},{24,70,74},{25,60,65},{27,36,45},{28,45,53},{28,96,100},{30,40,50},{30,72,78},{32,60,68},{33,44,55},{33,56,65},{35,84,91},{36,48,60},{36,77,85},{39,52,65},{39,80,89},{40,42,58},{40,75,85},{42,56,70},{45,60,75},{48,55,73},{48,64,80},{51,68,85},{54,72,90},{57,76,95},{60,63,87},{60,80,100},{65,72,97}}%%d'après villement.gerard.free.fr


\newcommand\initcarre{%
  \PfMdefinelist{\carres}{4,9,16,25,36,49,64,81,100}%
}
\newcommand\getcarre{%
  \randomextract{\carres}{\carreA}
}

%2009-2018
  % Source https://ec.europa.eu/eurostat/databrowser/view/ENV_AIR_GGE__custom_743354/default/table?lang=en
\PfMdefinelist{\GazSerreEu}{%
  {{la },Belgique,131038.46,123642.9},%
  {{la },Bulgarie,58617.88,58595.07},%
  {{le },Danemark,65734.85,51299.75},%
  {{l'},Allemagne,934202.04,888718.56},%
  {{l'},Irlande,63985.03,64241.55},%
  {{la },Grèce,127381.2,96113.19},%
  {{l'},Espagne,385211.04,352208.55},%
  {{la },France,521519.73,462798.66},%
  {{l'},Italie,510950.49,439263.95},%
  {{les },{Pays Bas},212360.67,200458.52},%
  {{la },Pologne,395464.33,415858.2},%
  {{la },Norvège,54280.59,53769.04},%
  {{la },Suisse,57276.22,52099.15}%
}

\newcommand\getGazSerre{%
  \randomextract{\GazSerreEu}{\GazSerrePays}%
  \extract{\GazSerrePays}{1}{\ArticlePaysGS}%
  \extract{\GazSerrePays}{1}{\NomPaysGS}%
  \extract{\GazSerrePays}{1}{\ConsoAPaysGS}%
  \extract{\GazSerrePays}{1}{\ConsoBPaysGS}%
}

  \PfMdefinelist{\VehiculesINSEE}{%
    {2012,13132,22264,8111,15242},%
    {2013,12853,22712,8028,15020},%
    {2014,12778,23134,8049,14905},%
    {2015,12874,23460,8144,14813},%
    {2016,13144,23634,8308,14813},%
    {2017,13580,23645,8437,14629},%
    {2018,14140,23293,8652,14453},%
    {2019,14756,22636,8920,14392}%
  }%
  \newcommand\getVehiculesINSEE{%
    \randomextract{\VehiculesINSEE}{\NbVehiculesINSEE}%
    \extract{\NbVehiculesINSEE}{1}{\AnneeVehiculesINSEE}%
    \extract{\NbVehiculesINSEE}{1}{\EssenceVehiculesINSEE}%
    \extract{\NbVehiculesINSEE}{1}{\DieselVehiculesINSEE}%
    \extract{\NbVehiculesINSEE}{1}{\KmEssenceVehiculesINSEE}%
    \extract{\NbVehiculesINSEE}{1}{\KmDieselVehiculesINSEE}%
  }

  % On met Christ7 à la fin :)
  \newcommand{\vecteur}[1]{\overrightarrow{\strut #1}}
  
  \newlength{\ltxt}
  
  \newcommand\compo[4]{%
    \setlength{\ltxt}{\linewidth}
    \setbox#1=\hbox{\includegraphics[scale=#3]{#2.#1}}
    \addtolength{\ltxt}{-\wd#1}
    \addtolength{\ltxt}{-10pt}
    \begin{minipage}{\wd#1}
      \includegraphics[scale=#3]{#2.#1}
    \end{minipage}
    \hfill
    \begin{minipage}{\ltxt}
      #4
    \end{minipage}
  }%

\newlength{\lntxt}
\newcommand{\Compo}[4]{
\setlength{\lntxt}{\linewidth}
\setbox#1=\hbox{\includegraphics[scale=#3]{#2}}
\addtolength{\lntxt}{-\wd#1}
\addtolength{\lntxt}{-10pt}
\begin{minipage}{\wd#1}
\includegraphics[scale=#3]{#2}
\end{minipage}
\hfill
\begin{minipage}{\lntxt}
#4
\end{minipage}
}

\newcommand{\Compog}[4]{
\setlength{\lntxt}{\linewidth}
\setbox#1=\hbox{\includegraphics[scale=#3]{#2}}
\addtolength{\lntxt}{-\wd#1}
\addtolength{\lntxt}{-10pt}
\begin{minipage}{\lntxt}
#4
\end{minipage}
\hfill
\begin{minipage}{\wd#1}
\includegraphics[scale=#3]{#2}
\end{minipage}
}

\newlength{\ecart}
\setlength{\ecart}{-20pt}

\newcommand{\compog}[4]{%
\setlength{\ltxt}{\linewidth}
\setbox#1=\hbox{\includegraphics[scale=#3]{#2.#1}}
\addtolength{\ltxt}{-\wd#1}
\addtolength{\ltxt}{\ecart}
\begin{minipage}{\ltxt}
#4
\end{minipage}
\hfill
\begin{minipage}{\wd#1}
\includegraphics[scale=#3]{#2.#1}
\end{minipage}
}

\newlength{\appui}
\setlength{\appui}{20pt}

\newlength{\lnttxt}
\newcommand\dispo[3]{%
\setlength{\lnttxt}{\linewidth}
\setbox#1=\hbox{#2}
\addtolength{\lnttxt}{-\wd#1}
\addtolength{\lnttxt}{-\appui}
\begin{minipage}{\wd#1}
#2
\end{minipage}
\hfill
\begin{minipage}{\lnttxt}
#3
\end{minipage}
}

\newcommand\dispog[3]{%
\setlength{\lnttxt}{\linewidth}%
\setbox#1=\hbox{#2}%
\addtolength{\lnttxt}{-\wd#1}%
\addtolength{\lnttxt}{-\appui}%
\begin{minipage}{\lnttxt}%
#3
\end{minipage}%
\hfill%
\begin{minipage}{\wd#1}%
#2
\end{minipage}%
}%

\newcommand\compoxe[4][1]{%
  \setbox#1=\hbox{\includegraphics[scale=#3]{#2.pdf}}%
  \setlength{\lnttxt}{\linewidth-\wd#1-\appui}%
  \begin{minipage}{\wd#1}%
    \usebox#1%
  \end{minipage}%
  \hfill%
  \begin{minipage}{\lnttxt}%
    #4%
  \end{minipage}%
}%

\newcommand\compogxe[4][1]{%
  \setbox#1=\hbox{\includegraphics[scale=#3]{#2.pdf}}%
  \setlength{\lnttxt}{\linewidth-\wd#1-\appui}%
  \begin{minipage}{\lnttxt}%
    #4
  \end{minipage}%
  \hfill%
  \begin{minipage}{\wd#1}%
    \usebox#1
  \end{minipage}%
}%

\newcommand{\compogb}[4]{%
\setlength{\ltxt}{\linewidth}
\BaremeEspaceMarge{-20pt-82pt-\wd#1}
\setbox#1=\hbox{\includegraphics[scale=#3]{#2.#1}}
\addtolength{\ltxt}{-\wd#1}
\addtolength{\ltxt}{-20pt}
\begin{minipage}{\ltxt}
#4
\end{minipage}
\hfill
\begin{minipage}{\wd#1}
\includegraphics[scale=#3]{#2.#1}
\end{minipage}
\BaremeEspaceMarge{-82pt}
}

\newcommand{\dispogb}[3]{
\setlength{\ltxt}{\linewidth}
\BaremeEspaceMarge{-20pt-82pt-\wd#1}
\setbox#1=\hbox{#2}
\addtolength{\ltxt}{-\wd#1}
\addtolength{\ltxt}{-\appui}
\begin{minipage}{\ltxt}
#3
\end{minipage}
\hfill
\begin{minipage}{\wd#1}
#2
\end{minipage}
\BaremeEspaceMarge{-82pt}
}

%\AddToHook{env/multicols/begin}{\setcounter{Nbcolonnes}{2}}%
%\AddToHook{env/multicols/after}{\setcounter{Nbcolonnes}{4}}%

\NewDocumentCommand\Cicontre{s}{%
  \ifPfMDeuxColonnes
    \IfBooleanTF{#1}{ci-dessous}{ci-dessus}%
  \else
    ci-contre%
  \fi
}%

\NewDocumentEnvironment{Dispo}{sm+b}{%
  \ifPfMDeuxColonnes
    \IfBooleanTF{#1}{%
      #3
      \begin{center}
        #2
      \end{center}
    }{%
      \begin{center}
        #2
      \end{center}
      #3
    }%
  \else%
    \IfBooleanTF{#1}{%
      \dispog{1}{#2}{#3}
    }{%
      \dispo{1}{#2}{#3}
    }%
  \fi%
}{}%

\NewDocumentEnvironment{CALign}{O{&=\dots&}O{&=\dots}mb}{%
  % #1 séparateur généraliste
  % #2 séparateur dernière colonne
  % #3 nombre de colonnes souhaitées
  % #4 environnement
  \xdef\Foo{#4}%
  \setsepchar{§}\ignoreemptyitems%
  \readlist*\ListeTest{\Foo}%
  \reademptyitems%
  \quotient{\ListeTestlen}{#3}%
  \modulo{\ListeTestlen}{#3}%
  \begin{align*}
    \ifnum\intquotient>0\relax
    \xintFor* ##9 in{\xintSeq{0}{\fpeval{\the\intquotient-1}}}\do{%
    \xintFor* ##8 in{\xintSeq{1}{#3}}\do{
    \ListeTest[\fpeval{##9*#3+##8}]\xintifForLast{#2}{#1}
    }\ifnum##9<\fpeval{\the\intquotient-1}\relax\\\fi
    }
    \fi
    \ifnum\remainder>0\relax
    \ifnum\intquotient>0\relax\\\fi
    \xintFor* ##8 in{\xintSeq{1}{\the\remainder}}\do{
    \ListeTest[\fpeval{\the\intquotient*#3+##8}]\xintifForLast{#2}{#1}
    }
    \fi
  \end{align*}
}{}%

\NewDocumentEnvironment{CALignAv}{O{A&=}mb}{%
  % #1 séparateur généraliste
  % #2 nombre de colonnes souhaitées
  % #3 environnement
  \xdef\Foo{#3}%
  \setsepchar{§}\ignoreemptyitems%
  \readlist*\ListeTest{\Foo}%
  \reademptyitems%
  \quotient{\ListeTestlen}{#2}%
  \modulo{\ListeTestlen}{#2}%
  \begin{align*}
    \ifnum\intquotient>0\relax
    \xintFor* ##9 in{\xintSeq{0}{\fpeval{\the\intquotient-1}}}\do{%
    \xintFor* ##8 in{\xintSeq{1}{#2}}\do{%
    #1\ListeTest[\fpeval{##9*#2+##8}]\ifnum##8<#2\relax\uppercase{&}\fi
                                                        }\ifnum##9<\fpeval{\the\intquotient-1}\relax{}\\\fi
    }%
    \fi%
    \ifnum\remainder>0\relax%
    \ifnum\intquotient>0\relax\\\fi
    \xintFor* ##8 in{\xintSeq{1}{\the\remainder}}\do{%
    #1\ListeTest[\fpeval{\the\intquotient*#2+##8}]\ifnum##8<\remainder\relax\uppercase{&}\fi
                                                                                 }%
    \fi%
  \end{align*}
}{}%

\def\RetiensEchelle{1cm}
\def\ChoixNbQuestions{5}

\NewDocumentCommand\QuestionBoulotold{}{%
  \ifboolKV[Boulot]{CAN}{\setKV[ClesExercices]{NbQuestions=1}}{%
    \ifboolKV[Boulot]{AMC}{\setKV[ClesExercices]{NbQuestions=1}}{%
      \setKV[ClesExercices]{NbQuestions=\ChoixNbQuestions}%
    }%
  }%
}%

\NewDocumentCommand\QuestionBoulot{O{\ChoixNbQuestions}}{%
  \ifboolKV[Boulot]{CAN}{%
    \setKV[ClesExercices]{NbQuestions=1}%
  }{%
    \ifboolKV[Boulot]{QCM}{%
      \setKV[ClesExercices]{NbQuestions=1}%
    }{%
      \setKV[ClesExercices]{NbQuestions=#1}%
    }%
  }%
}%
\makeatletter
\if@CAN
  \AddToHook{env/document/before}{%
    \ProvidesPackage{ProfMaquette}[Mode CAN (CP)]%
    \RequirePackage{pgfmorepages}
    \pgfmorepagesloadextralayouts
    \pgfpagesuselayout{4 on 2, book format}[a4paper,landscape]
  }
\fi

\if@Revision
  \AddToHook{env/document/before}{%
    \ProvidesPackage{ProfMaquette}[Mode Revision (CP)]%
    \setcounter{Nbcolonnes}{2}%
    \def\RetiensEchelle{0.5cm}
    \RequirePackage{pgfmorepages}
    \pgfmorepagesloadextralayouts
    \pgfpagesuselayout{4 on 2, book format}[a4paper]
  }
\fi

\if@Personnel
  \input{PfMPerso.cfg}
\fi
\makeatother

\IfClassLoadedTF{beamer}{}{%
  % enumitem obligatoire ^^
% mais pas compatible beamer
\RequirePackage{enumitem}
% d'après https://tex.stackexchange.com/questions/164613/adding-code-at-the-end-of-each-list-item
\newif\iffirstlegal\firstlegalfalse% We need a toggle to track whether the item is first in the list or not

\newlist{Test}{enumerate}{3}

\def\PfMPar{\par}

\NewDocumentCommand\litem{}{}

\let\olditem\item% save the standard definition of \item in a macro, \olditem

\setlist[Test,1]{%
  leftmargin=*,
  label=\arabic*.,
  before={%
    \setcounter{PfMProfondeur}{1}%
    \setcounter{PfMNbLignesFinitem}{0}
    \firstlegaltrue% set the toggle for first item in the list to true
    \def\Primeitem{\iffirstlegal\olditem\stepcounter{PfMNbLignesFinitem}%
        \firstlegalfalse
      \else
        \ifnum\PfMListeDesAjoutsdeLignes[\thePfMNbLignesFinitem]>1\relax\PfMPar\Lignespointilles{\PfMListeDesAjoutsdeLignes[\thePfMNbLignesFinitem]}\else\ifnum\PfMListeDesAjoutsdeLignes[\thePfMNbLignesFinitem]=1\relax\PfMPar\pointilles\fi\fi%
        \olditem\stepcounter{PfMNbLignesFinitem}%
      \fi
    }% new, temporary defition of \item
    \let\litem\Primeitem
    \let\item\litem
  },
  after={%
    \ifnum\PfMListeDesAjoutsdeLignes[\thePfMNbLignesFinitem]>0\relax\PfMPar\Lignespointilles{\PfMListeDesAjoutsdeLignes[\thePfMNbLignesFinitem]}\else\ifnum\PfMListeDesAjoutsdeLignes[\thePfMNbLignesFinitem]=1\relax\PfMPar\pointilles\fi\fi%
    % fill for final item in list
    \let\litem\olditem% restore standard definition of \item
    \let\item\olditem
    \setcounter{PfMProfondeur}{0}%
  }%
}%

\setlist[Test,2]{%
  leftmargin=*,
  label=(\alph*),
  before={%
    \setcounter{PfMProfondeur}{2}%
    \setcounter{PfMNbLignesFinitemi}{0}
    \firstlegaltrue%
    \def\Seconditem{\iffirstlegal\olditem\stepcounter{PfMNbLignesFinitemi}\firstlegalfalse\else%
        \ifnum\PfMListeDesAjoutsdeLignesi[\thePfMNbLignesFinitemi]>1\relax\PfMPar\Lignespointilles{\PfMListeDesAjoutsdeLignesi[\thePfMNbLignesFinitemi]}\else\ifnum\PfMListeDesAjoutsdeLignesi[\thePfMNbLignesFinitemi]=1\relax\PfMPar\pointilles\fi
      \fi%
        \olditem\stepcounter{PfMNbLignesFinitemi}
      \fi
    }% new, temporary defition of \item
    \let\litem\Seconditem
    \let\item\litem
  },
  after={%
    \ifnum\PfMListeDesAjoutsdeLignesi[\thePfMNbLignesFinitemi]>1\relax\PfMPar\Lignespointilles{\PfMListeDesAjoutsdeLignesi[\thePfMNbLignesFinitemi]}\else\ifnum\PfMListeDesAjoutsdeLignesi[\thePfMNbLignesFinitemi]=1\relax\PfMPar\pointilles\fi
    \fi%
%    % fill for final item in list
    \let\litem\Primeitem%
    \let\item\litem
    \setcounter{PfMProfondeur}{1}%
  }%
}

\newcounter{PfMNbLignesFinitem}
\newcounter{PfMNbLignesFinitemi}
\newcounter{PfMProfondeur}
\setcounter{PfMProfondeur}{0}%

\NewDocumentEnvironment{autoenumerate}{O{}m +b}{%
  \setsepchar{,}\ignoreemptyitems%
  \ifnum\thePfMProfondeur=0\relax%
    \readlist*\PfMListeDesAjoutsdeLignes{#2}%
  \else%
    \readlist*\PfMListeDesAjoutsdeLignesi{#2}%
  \fi%
  \begin{Test}[#1]%
    #3
  \end{Test}%
}{}%
}%

%%%
% PixelArt
%%%
\newtoks\toklistePfMPANombre%
\newtoks\tokPfMPXNomCouleur%
\def\UpdatetoksPfMPANombre#1\nil{\addtotok\toklistePfMPANombre{"#1",}}%
\def\UpdatetoksPfMPXNomCouleur#1\nil{\addtotok\tokPfMPXNomCouleur{"#1",}}%

\setKVdefault[PfMPixelArt]{Largeur=29,Hauteur=29,Solution=false,Lettres=ABCDEFGHIJK,Nombres=false,ListeCouleurs={},Unite=5mm,Geant=false,HauteurD=1,LargeurD=1,Complet=false,Numero=1,Separations=false,Deforme=false,Coefx=0.25,Coefy=0.25,Borne=false,Graines=false}%
\defKV[PfMPixelArt]{ListeNombres=\setKV[PfMPixelArt]{Nombres}}%
\defKV[PfMPixelArt]{Graine=\setKV[PfMPixelArt]{Graines}}%

%"mario1.txt"

\NewDocumentCommand\PfMPixelArt{o m}{%
  \toklistePfMPANombre{}%
  \tokPfMPXNomCouleur{}%
  \useKVdefault[PfMPixelArt]%
  \setKV[PfMPixelArt]{#1}%
%  \expandafter\UpdatetoksPfMPXNomFichier\useKV[PixelArt]{Fichier}\nil%
%  Le tok fichier est \the\tokPfMPXNomFichier
  \xdef\ListeAvantCouleurs{\useKV[PfMPixelArt]{ListeCouleurs}}%
  \setsepchar{,}\ignoreemptyitems%
  \readlist*\ListePACouleur{\ListeAvantCouleurs}%
  \reademptyitems%
  \foreachitem\compteur\in\ListePACouleur{\expandafter\UpdatetoksPfMPXNomCouleur\compteur\nil}%
  \ifboolKV[PfMPixelArt]{Nombres}{%
    \xdef\ListeAvantNombres{\useKV[PfMPixelArt]{ListeNombres}}%
    \setsepchar{,}%
    \readlist*\ListePANombre{\ListeAvantNombres}%
    \foreachitem\compteur\in\ListePANombre{\expandafter\UpdatetoksPfMPANombre\compteur\nil}%
  }{}
  \ifboolKV[PfMPixelArt]{Geant}{%
    % Découpe en hauteur : \fpeval{\useKV[PfMPixelArt]{Hauteur}/\useKV[PfMPixelArt]{HauteurD}}\\
    % Découpe en largeur : \fpeval{\useKV[PfMPixelArt]{Largeur}/\useKV[PfMPixelArt]{LargeurD}-1}}\par
    \ifboolKV[PfMPixelArt]{Complet}{%
      \xintFor* ##1 in{\xintSeq{0}{\fpeval{\useKV[PfMPixelArt]{Hauteur}/\useKV[PfMPixelArt]{HauteurD}-1}}}\do{%
        \xintFor* ##2 in{\xintSeq{0}{\fpeval{\useKV[PfMPixelArt]{Largeur}/\useKV[PfMPixelArt]{LargeurD}-1}}}\do{%
          \fpeval{##1*\useKV[PfMPixelArt]{Hauteur}/\useKV[PfMPixelArt]{HauteurD}+##2} : \PfMBuildPixelArtGeant{#2}{\useKV[PfMPixelArt]{Lettres}}{\ListeAvantCouleurs}{\the\toklistePfMPANombre}{##1}{##2}\\%
        }%
      }%
    }{%
%      \quotient{\fpeval{\useKV[PfMPixelArt]{Numero}-1}}{\fpeval{\useKV[PfMPixelArt]{Hauteur}/\useKV[PfMPixelArt]{HauteurD}}}%
%      \modulo{\fpeval{\useKV[PfMPixelArt]{Numero}-1}}{\fpeval{\useKV[PfMPixelArt]{Hauteur}/\useKV[PfMPixelArt]{HauteurD}}}%
      \quotient{\fpeval{\useKV[PfMPixelArt]{Numero}-1}}{\fpeval{\useKV[PfMPixelArt]{Largeur}/\useKV[PfMPixelArt]{LargeurD}}}%
      \modulo{\fpeval{\useKV[PfMPixelArt]{Numero}-1}}{\fpeval{\useKV[PfMPixelArt]{Largeur}/\useKV[PfMPixelArt]{LargeurD}}}%
%      quotient = \the\intquotient -- remainder = \the\remainder :\\
      \PfMBuildPixelArtGeant{#2}{\useKV[PfMPixelArt]{Lettres}}{\ListeAvantCouleurs}{\the\toklistePfMPANombre}{\the\intquotient}{\the\remainder}%
    }%
  }{%
    \ifboolKV[PfMPixelArt]{Deforme}{%
        \PfMBuildPixelArtDeforme{#2}{\useKV[PfMPixelArt]{Lettres}}{\ListeAvantCouleurs}{\the\toklistePfMPANombre}%
      }{%
        % \PfMBuildPixelArt{#2}{\useKV[PfMPixelArt]{Lettres}}{\ListeAvantCouleurs}{\the\toklistePfMPANombre}%
        \PfMBuildPixelArt{#2}{\useKV[PfMPixelArt]{Lettres}}{\the\tokPfMPXNomCouleur}{\the\toklistePfMPANombre}%%
    }%
  }%
}%

\NewDocumentCommand\PfMBuildPixelArt{m m m m}{%
  \ifluatex
  \mplibforcehmode
  \begin{mplibcode}
%    largeur:=\useKV[PfMPixelArt]{Largeur};
%    hauteur:=\useKV[PfMPixelArt]{Hauteur};
    largeurd:=\useKV[PfMPixelArt]{LargeurD};
    hauteurd:=\useKV[PfMPixelArt]{HauteurD};
    Unite:=\useKV[PfMPixelArt]{Unite};

    boolean Solution,Nombres,Separations,RotationPixel;
    Solution:=\useKV[PfMPixelArt]{Solution};
    Nombres:=\useKV[PfMPixelArt]{Nombres};
    Separations:=\useKV[PfMPixelArt]{Separations};
    RotationPixel:=\useKV[PixelArt]{Landscape};
    
    string BaseLettres;
    BaseLettres=str #2;
    numeric EchelleScale;
    EchelleScale=Unite/5mm;
    
    color ColorEntier[],ColFond;
    n:=0;
    for p_=#3:
      n:=n+1;
      index:=0;
      for k=0 upto (length p_-1):
      if substring(k,k+1) of p_="!":
      index:=k;
      fi;
    endfor;
    if index>0:  
    color base;
    base=scantokens(substring(0,index) of p_);
    atte:=scantokens(substring(index+1,length p_) of p_);
    ColorEntier[n]:=(atte/100)[white,base];
    else:
    ColorEntier[n]:=scantokens(p_);
    fi;
%    ColorEntier[n]:=black;
    endfor;

    string RetiensNombres[];
    if Nombres:
    k:=0;
    for p_=#4:
    k:=k+1;
    RetiensNombres[k]=p_;
    endfor;
    else:
    m:=0;
    for p_=0 upto n-1:
    m:=m+1;
    RetiensNombres[m]=substring(p_,p_+1) of BaseLettres;
    endfor;
    fi;

    picture Etiquette[];
    for k=1 upto n:
    Etiquette[k]=image(
    label(TEX(RetiensNombres[k]) scaled EchelleScale,(0,0));
    );
    endfor;

    vardef Largeur(expr nomfichier)=
      string p_;
      p_=readfrom nomfichier;
      largeur=(length p_+1) div 2;
      closefrom nomfichier;
    enddef;

    vardef Hauteur(expr nomfichier)=
      string p_;
      hauteur=0;
      p_=readfrom nomfichier;
      forever: exitif p_=EOF;
        hauteur:=hauteur+1;
        p_:=readfrom nomfichier;
      endfor;
      closefrom nomfichier;
    enddef;
    
    vardef Lecturecsv(expr nomfichier)=
    for h=hauteur downto 1:
      string p_;
      p_=readfrom nomfichier;
      l:=0;
      for p=0 step 2 until 2*largeur-2:
        l:=l+1;
        if Solution=false:
          if (substring(p,p+1) of p_)="-":
          else:
            for m=0 upto (length BaseLettres-1):
              if (substring(p,p+1) of p_)=substring(m,m+1) of BaseLettres:
              draw Etiquette[m+1] shifted((l-1)*Unite,(h-1)*Unite);
              fi;
            endfor;
          fi;
        fi;
        if Solution:
          if (substring(p,p+1) of p_)="-":
          else:
            for m=0 upto (length BaseLettres-1):
              if (substring(p,p+1) of p_)=substring(m,m+1) of BaseLettres:
                ColFond:=ColorEntier[m+1];
              fi;
            endfor;
            if unknown ColFond:
            else:
              fill (unitsquare scaled Unite) shifted ((l-1)*Unite-0.5*Unite,(h-1)*Unite-0.5*Unite) withcolor ColFond
            fi;
          fi;
        fi;
        trace (unitsquare scaled Unite) shifted ((l-1)*Unite-0.5*Unite,(h-1)*Unite-0.5*Unite);  
      endfor;
    endfor;
    closefrom nomfichier;
    enddef;

    Largeur(#1);
    Hauteur(#1);
%    label.top(TEX("Largeur = "&decimal(largeur)),(0,-1cm));
%    label.bot(TEX("Hauteur = "&decimal(hauteur)),(0,-1cm));
    Lecturecsv(#1);
    if Separations:
    drawoptions(withcolor Purple);
    for k=hauteur step -hauteurd until 0:
    draw (Unite*(-1,k-0.5)--Unite*(largeur,k-0.5)) withpen pencircle scaled 1.25;
    endfor;
    for k=0 step largeurd until largeur:
    draw (Unite*(k-0.5,hauteur+0.125)--Unite*(k-0.5,-0.875)) withpen pencircle scaled 1.25;
    endfor;
    drawoptions();
    fi;
    if RotationPixel:
    picture Retiens;
    Retiens:=currentpicture;
    currentpicture:=nullpicture;
    draw Retiens rotatedabout(center Retiens,90);
    fi;
  \end{mplibcode}
  \fi
}%

\NewDocumentCommand\PfMBuildPixelArtDeforme{m m m m}{%
  \ifluatex
  \mplibforcehmode
  \begin{mplibcode}
    largeur:=\useKV[PfMPixelArt]{Largeur};
    hauteur:=\useKV[PfMPixelArt]{Hauteur};
    largeurd:=\useKV[PfMPixelArt]{LargeurD};
    hauteurd:=\useKV[PfMPixelArt]{HauteurD};
    Unite:=\useKV[PfMPixelArt]{Unite};

    %Deformation
    Coefx=\useKV[PfMPixelArt]{Coefx};
    Coefy=\useKV[PfMPixelArt]{Coefy};
    boolean Borne,Graines;
    Borne=\useKV[PfMPixelArt]{Borne};
    Graines=\useKV[PfMPixelArt]{Graines};
    if Graines:
    randomseed:=\useKV[PfMPixelArt]{Graine};
    fi;
    %
    pair M[][];
    for l=1 upto hauteur+1:
      for c=1 upto largeur+1:
      if Borne:
      if (l=1) or (l=hauteur+1):
      M[l][c]=Unite*(c,l)+Unite*(-Coefx+uniformdeviate(2*Coefx),0);
      if (c=1) or (c=largeur+1):
      M[l][c]:=Unite*(c,l);
      fi;
      else:
      if (c=1) or (c=largeur+1):
      M[l][c]=Unite*(c,l-1)+Unite*(0,uniformdeviate(Coefy));
      else:
      M[l][c]=Unite*(c,l)+Unite*(-Coefx+uniformdeviate(2*Coefx),-Coefy+uniformdeviate(2*Coefy));
      fi;
      fi;
      else:
      M[l][c]=Unite*(c,l)+Unite*(-Coefx+uniformdeviate(2*Coefx),-Coefy+uniformdeviate(2*Coefy));
      fi;
      %dotlabel("",M[l][c]);
      endfor;
    endfor;
    
    boolean Solution,Nombres,Separations;
    Solution:=\useKV[PfMPixelArt]{Solution};
    Nombres:=\useKV[PfMPixelArt]{Nombres};
    Separations:=\useKV[PfMPixelArt]{Separations};
    
    string BaseLettres;
    BaseLettres=str #2;
    numeric EchelleScale;
    EchelleScale=Unite/10mm;
    
    color ColorEntier[],ColFond;
    n:=0;
    for p_=#3:
    n:=n+1;
    ColorEntier[n]:=p_;
    endfor;

    string RetiensNombres[];
    if Nombres:
    n:=0;
    for p_=#4:
    n:=n+1;
    RetiensNombres[n]=p_;
    endfor;
    fi;
        
    vardef Lecturecsv(expr nomfichier)=
    for h=hauteur downto 1:
    string p_;
    p_=readfrom nomfichier;
    l:=0;
    for p=0 step 2 until 2*largeur-2:
    l:=l+1;
    if (substring(p,p+1) of p_)="-":
    else:
    if Nombres:
    for m=0 upto (length BaseLettres-1):
    if (substring(p,p+1) of p_)=substring(m,m+1) of BaseLettres:
    label(TEX(RetiensNombres[m+1]) scaled EchelleScale,iso(M[h+1][l],M[h][l],M[h][l+1],M[h+1][l+1]));
    fi;
    endfor;
    else:
    label(TEX(substring(p,p+1) of p_) scaled EchelleScale,iso(M[h+1][l],M[h][l],M[h][l+1],M[h+1][l+1]));
    fi;
    if Solution:
    for m=0 upto (length BaseLettres-1):
    if (substring(p,p+1) of p_)=substring(m,m+1) of BaseLettres:
    ColFond:=ColorEntier[m+1];
    fi;
    endfor;
    if unknown ColFond: else: fill polygone(M[h+1][l],M[h][l],M[h][l+1],M[h+1][l+1]) withcolor ColFond fi;
    fi;
    trace polygone(M[h+1][l],M[h][l],M[h][l+1],M[h+1][l+1]);
   fi;
    endfor;
    endfor;
    closefrom nomfichier;
    enddef;
    
    Lecturecsv("#1");
  \end{mplibcode}
\fi
}%

\NewDocumentCommand\PfMBuildPixelArtGeant{m m m m m m}{%
  \ifluatex%
  \mplibforcehmode%
  \begin{mplibcode}%
    largeur:=\useKV[PfMPixelArt]{Largeur};
    hauteur:=\useKV[PfMPixelArt]{Hauteur};
    largeurd:=\useKV[PfMPixelArt]{LargeurD};
    hauteurd:=\useKV[PfMPixelArt]{HauteurD};
    
    Unite:=\useKV[PfMPixelArt]{Unite};

    boolean Solution,Nombres;
    Solution:=\useKV[PfMPixelArt]{Solution};
    Nombres:=\useKV[PfMPixelArt]{Nombres};
    
    string BaseLettres;
    BaseLettres=str #2;

    numeric EchelleScale;
    EchelleScale=Unite/5mm;
    
    color ColorEntier[],ColFond;
    n:=0;
    for p_=#3:
    n:=n+1;
    ColorEntier[n]:=p_;
    endfor;

    string RetiensNombres[];
    if Nombres:
    n:=0;
    for p_=#4:
    n:=n+1;
    RetiensNombres[n]=p_;
    endfor;
    fi;
        
    vardef Lecturecsv(expr nomfichier)=
    % for h=hauteur-#5*hauteurd downto hauteur-(#5+1)*hauteurd:
    for h=hauteur downto 1:
    string p_;
    p_=readfrom nomfichier;
    l:=0;
    if (h>hauteur-(#5+1)*hauteurd) and (h<hauteur-#5*hauteurd+1):
    for p=2*#6*largeurd step 2 until 2*(#6+1)*largeurd-2:
    l:=l+1;
    if (substring(p,p+1) of p_)="-":
    else:
    if Nombres:
    for m=0 upto (length BaseLettres-1):
    if (substring(p,p+1) of p_)=substring(m,m+1) of BaseLettres:
    label(TEX(RetiensNombres[m+1]) scaled EchelleScale,((l-1)*Unite,(h-1)*Unite));
    fi;
    endfor;
    else:
    label(TEX(substring(p,p+1) of p_) scaled EchelleScale,((l-1)*Unite,(h-1)*Unite));
    fi;
    if Solution:
    for m=0 upto (length BaseLettres-1):
    if (substring(p,p+1) of p_)=substring(m,m+1) of BaseLettres:
    ColFond:=ColorEntier[m+1];
    fi;
    endfor;
    if unknown ColFond: else: fill (unitsquare scaled Unite) shifted ((l-1)*Unite-0.5*Unite,(h-1)*Unite-0.5*Unite) withcolor ColFond fi;
    fi;
    trace (unitsquare scaled Unite) shifted ((l-1)*Unite-0.5*Unite,(h-1)*Unite-0.5*Unite);
   fi;
   endfor;
   fi;
    endfor;
    closefrom nomfichier;
    enddef;
    
    Lecturecsv("#1");
  \end{mplibcode}
  \fi%
}%

% Puzzle Page
\NewDocumentCommand\MPPuzzlePage{}{%
  \begin{Geometrie}[Cadre="aucun"]
    pair A,B,C,D,M[],N[],K[],L[],O[];
    A=(0,0);
    B-A=u*(27,0);
    C-B=u*(0,-18.6);
    D-C=A-B;
    M1=1/3[A,B];
    M2=2/3[A,B];
    M3=1/3[D,C];
    M4=2/3[D,C];
    N1=1/2[A,D];
    N3=1/2[B,C];
    trace polygone(A,B,C,D);
    K1=1/6[N1,N3]+u*(-0.3,0);
    K2=1/6[N1,N3]+u*(0.3,0);
    K3=iso(K1,K2)+u*(0,0.3);
    K4=3/6[N1,N3]+u*(-0.3,0);
    K5=3/6[N1,N3]+u*(0.3,0);
    K6=iso(K4,K5)+u*(0,0.3);
    K7=5/6[N1,N3]+u*(-0.3,0);
    K8=5/6[N1,N3]+u*(0.3,0);
    K9=iso(K7,K8)+u*(0,0.3);
    trace N3--arccercle(K8,K7,K9)--arccercle(K5,K4,K6)--arccercle(K2,K1,K3)--N1;
    L1=1/4[M1,M3]+u*(0,0.3);
    L2=1/4[M1,M3]+u*(0,-0.3);
    L3=iso(L1,L2)+u*(0.3,0);
    L4=3/4[M1,M3]+u*(0,0.3);
    L5=3/4[M1,M3]+u*(0,-0.3);
    L6=iso(L4,L5)+u*(-0.3,0);
    trace M3--reverse(arccercle(L4,L5,L6))--arccercle(L2,L1,L3)--M1;
    O1=1/4[M2,M4]+u*(0,0.3);
    O2=1/4[M2,M4]+u*(0,-0.3);
    O3=iso(O1,O2)+u*(-0.3,0);
    O4=3/4[M2,M4]+u*(0,0.3);
    O5=3/4[M2,M4]+u*(0,-0.3);
    O6=iso(O4,O5)+u*(0.3,0);
    trace M4--arccercle(O5,O4,O6)--reverse(arccercle(O1,O2,O3))--M2;
  \end{Geometrie}
}