Nouvelle erreur du compilateur.

dim type_mot$, res%, traduction_mot$, car$, mot_precedent$(1)
dim pluriel_nom_francais$, temporaire$, crlf$, chaine2$, nombre_sens%
dim sens$(3), resultat$

             if (type_mot$="ms->mp" or type_mot$="fs->fp" or right$(trim$(traduction_mot$),2)="p)") and instr("*"+car$+"*las*los*les*des*les(ms)*les(mp)*","*"+mot_precedent$(1)+"*")=0 and mot_precedent$(1)<>car$+"ces"
                   res%=0

                   if instr(traduction_mot$,"(adv)")+instr(traduction_mot$,"(conj)")+instr(traduction_mot$,"(prép)")=0
                      if right$(traduction_mot$,4)="(ms)" then temporaire$="(ms)":traduction_mot$=trim$(left$(traduction_mot$,len(traduction_mot$)-4))
                      if right$(traduction_mot$,4)="(mp)" then temporaire$="(mp)":traduction_mot$=trim$(left$(traduction_mot$,len(traduction_mot$)-4))
                      if right$(traduction_mot$,4)="(fs)" then temporaire$="(fs)":traduction_mot$=trim$(left$(traduction_mot$,len(traduction_mot$)-4))
                      if right$(traduction_mot$,4)="(fp)" then temporaire$="(fp)":traduction_mot$=trim$(left$(traduction_mot$,len(traduction_mot$)-4))
                      if right$(traduction_mot$,3)="(n)" then temporaire$="(n)":traduction_mot$=trim$(left$(traduction_mot$,len(traduction_mot$)-3))
                      ' determiner_pluriel_nom_francais(traduction_mot$)
                      traduction_mot$=pluriel_nom_francais$

                      if temporaire$="(ms)"
                         traduction_mot$=traduction_mot$+"(mp)"
                            else
                         if temporaire$="(fs)"
                            traduction_mot$=traduction_mot$+"(fp)"
                               else
                            if temporaire$="(n)" then traduction_mot$=traduction_mot$+"(np)"
                         end_if
                      end_if
                   end_if

                   ' Corrections: on enlève le 's' final éventuel.
                   if right$(traduction_mot$,2)=")s" then traduction_mot$=left$(traduction_mot$,len(traduction_mot$)-1)

                   if instr(traduction_mot$,"(adv)")+instr(traduction_mot$,"(conj)")+instr(traduction_mot$,"(prép)")=0
                      if mot_precedent$(1)<>car$+"les(adj)" and mot_precedent$(1)<>"my" and traduction_mot$<>"dans" and left$(traduction_mot$,15)<>"Ne pas traduire"
                         chaine2$="Faut-il ajouter l'article 'les' ou 'des' devant le mot '"+traduction_mot$+"' ?"+crlf$
                         chaine2$=chaine2$+"Dans la phrase:"+crlf$+"'"+phrase$+"'."
                         nombre_sens%=3
                         sens$(1)="les"
                         sens$(2)="des"
                         sens$(3)="aucun"
                         ' message(5,1,chaine2$)
                         if resultat$<>"aucun" then traduction_mot$=car$+resultat$+" "+traduction_mot$
                      end_if
                   end_if
                end_if
                

dim phrase$