Gdtyjr

Sorry, but part of the code is in French. However, it won't matter because it's only the listed text

I currently have a new command named listerfe that, combined with listerfenextarg and listerfegobblenextarg, succesfully proceeds an unknown number of parameters to separe them with a ,

Now, I have this code:

% !TeX encoding = UTF-8
% !TeX spellcheck = fr_FR


documentclass[utf8]article
usepackagetikz
makeatletter
newcommandforeachlinedo[2]foreach noeud in listerfe#1 - (noeud.west);

newcommandlisterfe[1]#1listerfenextarg
newcommandlisterfenextarg@ifnextcharbgrouplisterfegobblenextarg
newcommandlisterfegobblenextarg[1],#1@ifnextcharbgrouplisterfegobblenextarg
makeatother

begindocument

 definecolorcouleurbackintrHTML7F00FF
 definecolorcouleurtextintrHTMLFFFFFF
 definecolorcouleurbackfoncHTMLC780FF
 definecolorcouleurtextHTML000000
 definecolorcouleurbackextrHTMLDDB3FF
 beginfigure[htp]
 centering
 tikzset
 basic/.style=draw, rounded corners=2pt, thick, text width=8em, align=flush center, text=couleurtext, node distance=2em,
 intrant/.style=basic, fill=couleurbackintr, text=couleurtextintr,
 fonction/.style=basic, fill=couleurbackfonc,
 extrant/.style=basic, fill=couleurbackextr
 
 begintikzpicture[]
 fontsize89 selectfont
 % intrants
 matrix[row sep=2em, column sep=2em] 
 % 1re ligne
 %TODO changer nom
 node[intrant](forcutil)Force utilisée; & node[fonction](instcapt)Installer capteur sous l'eau; & & & node[extrant](captinst)Capteur installé; \
 % 2me ligne
 node[intrant](defailla)Défaillance; & node[fonction](detcdefa)Détecter défaillance; & & node[fonction](genralrm)Générer alarme; & node[extrant](alarme)Alarme; \
 node[intrant](poissons)Poissons; & node[fonction](detecteu)Détecteur; & node[fonction](photo)Photo; & node[fonction](accudonn)Accumuler données; & \
 node[intrant](elecbatt)Électicité batterie; & node[fonction](alimcapt)Alimenter capteur; & & node[fonction](idenpois)Identifier poisson; & \
 node[intrant](tempreau)Température de l'eau; & node[fonction](captteau)Capteur température eau; & & node[fonction](archdonn)Archiver donnéees; & node[extrant](donnarch)Données archivées; \
 node[intrant](tempintr)Température interne; & node[fonction](capttcpt)Capteur température interne; & & & \
 node[intrant](confvolm)Configuration volume; & node[fonction](confcapt)Configurer capteur; & & & \
 node[intrant](entrutil)Entrées utilisateurs; & node[fonction](authutil)Authentifier utilisateur; & node[fonction](accedonn)Accéder aux données; & & \
 ;
 foreachlinedoforcutildefaillapoissonsinstcapt;
 endtikzpicture
 captionDiagramme fonctionnel
 labelf:caf_diag_fonc
 endfigure

enddocument

Without the foreachlinedo, so without arrows, it looks like this:

Now, when I run this code, it tells me this:

Argument of XC@definec@lor has an extra }. ...forcutildefaillapoissonsinstcapt
Paragraph ended before XC@definec@lor was complete. ...forcutildefaillapoissonsinstcapt
Paragraph ended before tikz@@scan@@no@calculator was complete. ...forcutildefaillapoissonsinstcapt
Extra }, or forgotten endgroup. endtikzpicture
Missing } inserted. endtikzpicture
Extra }, or forgotten endgroup. endtikzpicture
Missing } inserted. endtikzpicture
Extra }, or forgotten endgroup. endfigure
beginfigure on input line 30 ended by enddocument. enddocument
You can't use `end' in internal vertical mode. enddocument
beginfigure on input line 30 ended by enddocument. enddocument
Missing } inserted. enddocument
Emergency stop.
Unused global option(s): [utf8]. % doesn't matter

I created foreachlinedo because I don't want to create lots of foreach, because there will be lots and lots of arrows combined inthe diagram.

How can I make it work?