Hi,
Sorry if my minimal example is not, but I have to understand with your help what is wrong. For example, why a page break after the second item when there seems to be enough space to stay on this page ?

Thanks

Fabrice

\define\starttikzpicture
     {\hbox\bgroup\forcecolorhack\tikzpicture}

\define\stoptikzpicture
    {\endtikzpicture\egroup}

\define[2]\CScript{\start\switchtobodyfont[xitsbidi]\m{{\mathscript{#1}}_{#2}}\stop}  

  \usemodule[tikz]
  \usemodule[pgfplots]
  \pgfplotsset{compat=newest}
 
  \unexpanded\def\R{\math{\mathbb{R}}\autoinsertnextspace}
  \unexpanded\def\intervalff#1#2{\math{\left[#1\nonscript\,;#2\right]}}
  \unexpanded\def\point#1#2#3{\math{#1\left(#2\,;#3\right)}}

  \switchtobodyfont[pagella,11pt]
 
 \definefloat
    [recipe]
    [figure]

  \setupfloat
    [recipe]
    [default={right,nonumber}]

  \setuppagenumbering
   [alternative=,
    location=]

  \starttext

   \startitemize[n]
        \startitem
           {\it Pour tout événement \m{E}, on note \m{\overline{E}} l'évènement contraire de \m{E}.}
          \blank
          On considère l'arbre pondéré suivant :
          \startlinecorrection[blank]
            \startmidaligned
               \starttikzpicture
            [level 1/.style={level distance=40mm,sibling distance=25mm,very thick},
             level 2/.style={level distance=35mm,sibling distance=20mm,very thick}]
            \node{}[grow=right]
              child {node{\m{\overline{R}}}
                child{node{\m{\overline{S}}}edge from parent node[below=2pt]{0,8}}
                child{node{\m{S}}edge from parent node[above=2pt]{0,2}
                } edge from parent node[below=2pt]{0,3}}
              child {node{\m{R}}
                child{node{\m{\overline{S}}}edge from parent node[below=2pt]{0,6}}
                child{node{\m{S}}edge from parent node[above=2pt]{0,4}} edge from parent node[above=2pt]{0,7}};
          \stoptikzpicture
            \stopmidaligned
          \stoplinecorrection
          {\bi Affirmation 1 : }  La probabilité de \m{\overline{R}} sachant \m{S} est 0,06.
        \stopitem
        \blank
        \startitem
         Soit \m{f} une fonction dérivable sur l'intervalle \intervalff{0}{15}. On suppose que sa fonction dérivée, notée \m{f'}, est continue sur \intervalff{0}{15}. Les variations de \m{f'} sont représentées dans le tableau ci-dessous.
          \startlinecorrection[blank]
            \startmidaligned
              \externalfigure[tab_bacblanc.pdf]
            \stopmidaligned
          \stoplinecorrection
          {\bi Affirmation 2 :}  La courbe représentative \CScript{C}{f} de la fonction \m{f} admet une et une seule tangente parallèle à l'axe des abscisses.
        \stopitem
         \placerecipe{}{
           \hbox{
           \starttikzpicture
             [extended line/.style={shorten >=-#1,shorten <=-#1},
             scale=1, every node/.style={scale=0.8},
             /pgf/declare function={f(\x)=\x^2 +1 - \x^3;},
             /pgf/declare function={g(\x)=-5*\x - 2;}]
           \startaxis
            [restrict x to domain=-2:3, xmax=3, xmin=-2,
             restrict y to domain=-3:4, ymax=4, ymin=-3,
             x=0.8cm,
             y=0.8cm,
             axis x line=middle,
             axis y line=middle,
             major tick style=black,
             axis line style = ultra thick,
             tick align=outside,
             tickwidth=0.14cm,
             tick style=thick,
             grid=both,
             xtick={-1,...,2},
             ytick={-2,...,3},
             extra x ticks={-2,3},
             extra x tick label={\null},
             extra y ticks={-3,4},
             extra y tick label={\null},
             extra tick style={tick style={draw=none}},
             xlabel=$x$,ylabel=$y$,
             every axis x label/.style={
             at={(ticklabel* cs:1.01)},anchor=west},
             every axis y label/.style={
             at={(ticklabel* cs:1.01)}, anchor=south},
             samples=2000,
             axis on top=false,
             >=stealth]

                       
             \addplot [very thick,domain=-1.25:2] {g(x)};
             \addplot [darkred,very thick,domain=-1.25:2] {f(x)};
             
             \node[below left=1pt] at (0,0){\m{0}};
             \node[above right] at (-1,{f(-1)}) {\m{A}};
             \node[above right] at (0,{g(0)}) {\m{B}};
             \node[above right] at (1.2,0.5){\CScript{C}{h}};
             \node[left] at (-0.5,0.5){\m{T}};
             \node[fill=black,circle,scale=0.5] at (-1,{f(-1)}){};
             \node[fill=black,circle,scale=0.5] at (0,{g(0)}){};
                 
           \stopaxis
           \stoptikzpicture
            }
          }
         \startitem
         La courbe \CScript{C}{h} représentative d'une fonction \m{h} définie et dérivable sur \R est représentée ci-contre.  
          On a tracé la tangente \m{T} à \CScript{C}{h} au point \point{A}{-1}{3}.

          \m{T} passe par le point \point{B}{0}{-2}.
          \blank
          {\bi Affirmation 3 : } le nombre dérivé \m{h'(x)} est égal à \m{-2}.
        \stopitem
        \blank
        \startitem
         {\bi Affirmation 4 :} La valeur exacte de la somme des 12 premiers termes de la suite géométrique \m{\left(u_n\right)} de premier terme \m{4} et de raison \m{\dfrac{1}{3}} est :
           \startformula
             6\left(1-\left(\frac{1}{3}\right)^{13}\right)
           \stopformula
        \stopitem
      \stopitemize
           
  \stoptext