Gestion des arguments en LateX3

\documentclass{article}
\usepackage{amsmath}

\ExplSyntaxOn
\NewDocumentCommand\pflcreatelistsingle{ s O{,} m m }
    {
      % #1 = étoilé => mode argument, sinon mode macro (à voir :-/)
      % #2 = séparateur principal (par défaut: ,)
      % #3 = nom de la structure (ex: maliste)
      % #4 = contenu de la liste

      % Stocker le séparateur principal
      \tl_if_exist:cF { g__pfl_#3_mainsep_tl }
        { \tl_new:c { g__pfl_#3_mainsep_tl } }
      \tl_gset:cn { g__pfl_#3_mainsep_tl } { #2 }
      %liste à construire
      \seq_if_exist:cF { g__pfl_#3_main_seq }
        { \seq_new:c { g__pfl_#3_main_seq } }
      \seq_clear:c { g__pfl_#3_main_seq }
      %gestion arg/macro ?
      \IfBooleanTF{#1}
      {
        %expansion de la liste, si besoin
        \tl_set:Nn \l_tmpmylist_tl { #4 }
        \seq_set_split:NnV \l_tmpa_seq { #2 } { \l_tmpmylist_tl }
      }
      {
        \seq_set_split:NnV \l_tmpa_seq { #2 } { #4 }
      }
      % Toujours utiliser une seq, même pour les virgules
      \seq_gset_eq:cN { g__pfl_#3_main_seq } \l_tmpa_seq

      % Stocker le nombre d'éléments
      \int_if_exist:cF { g__pfl_#3_count_int }
        { \int_new:c { g__pfl_#3_count_int } }
      \int_gset:cn { g__pfl_#3_count_int } { \seq_count:c { g__pfl_#3_main_seq } }
    }

    \NewDocumentCommand\pflgetfromlistsingle{ s m m O{\myelt} }
    {
      % #2 = nom, #3 = index, #4 = macro
      \int_set:Nn \l_tmpa_int { \int_eval:n { #3 } }
      \tl_clear:N \l_tmpa_tl
      \tl_set:Nx \l_tmpa_tl { \seq_item:cn { g__pfl_#2_main_seq } { \int_use:N \l_tmpa_int } }

      \IfBooleanTF{#1}
      {
        \tl_if_exist:NF \g__pfleltlistsingle_result_tl
        { \tl_new:N \g__pfleltlistsingle_result_tl }
        \tl_gset_eq:NN \g__pfleltlistsingle_result_tl \l_tmpa_tl
        \tl_use:N \l_tmpa_tl
      }
      {
        \tl_set_eq:NN #4 \l_tmpa_tl
      }
    }
\ExplSyntaxOff

\begin{document}

%si argument en 'dur', version non étoilée fonctionne
\pflcreatelistsingle{maliste}{ {1+\dfrac{1}{x}} , { \sqrt{x+61} } }
Élément n°1 : $\pflgetfromlistsingle*{maliste}{1}$\\
Élément n°2 : \pflgetfromlistsingle{maliste}{2}[\myelt]$\myelt$\\
Élément n°3 : $\pflgetfromlistsingle*{maliste}{3}$

%si argument macro, version non étoilée fonctionne
\def\maliste{ {1+\dfrac{1}{x}} , { \sqrt{x+61} } }
\pflcreatelistsingle{maliste}{ \maliste }
Élément n°1 : $\pflgetfromlistsingle*{maliste}{1}$\\
Élément n°2 : \pflgetfromlistsingle{maliste}{2}[\myelt]$\myelt$

%si argument en dur avec imbrication, version étoilée obligatoire
\pflcreatelistsingle*{maliste}{ AAA , { BBB,CCC } }
Élément n°1 : $\pflgetfromlistsingle*{maliste}{1}$\\
Élément n°2 : \pflgetfromlistsingle{maliste}{2}[\myelt]$\myelt$

\end{document}