f(x) = x^(3) - (4 * x) - 1
A = Point(f)
T: y = (f'(x(A)) * (x - x(A))) + y(A)
texte1: "* le nombre dérivé vaut " + (LaTeX[If[Slope[T] > 0, "$\color{blue}" + (f'(x(A))) + "$", "$\color{red}" + (f'(x(A))) + "$"]]) + "
* la pente de la tangente est " + (LaTeX[If[Slope[T] > 0, "$\color{blue}positive$", "$\color{red}négative$"]]) + "
* la fonction est " + (LaTeX[If[Slope[T] > 0, "$\color{blue}croissante$", "$\color{red}décroissante$"]]) + ""