%!TEX pdflatex

\documentclass{article}
\usepackage[dvipsnames]{xcolor}
\usepackage{tikz}
\usepackage{fp}
\usetikzlibrary{calc}

\begin{document}

%la ligne avec les labels penchés
\newcommand\lignepenchee{%
	%NŒUDS
	\foreach \C in {0,1,...,\nbcol}{%
		\coordinate (A{0}{\C}) at ({\C*\lgcol},0);
		\coordinate (B{\C}) at ($(A{0}{\C}) + (\angl:\hlp)$);
	}
	%LABELS
	\foreach \C/\nom/\col in {0/{Centaines\\de millions}/BlueGreen!50,%
							  1/{Dizaines\\de millions}/BlueGreen!50,%
							  2/{Millions}/BlueGreen!50,%
							  3/{Centaines\\de milliers}/BlueGreen!25,%
							  4/{Dizaines\\de milliers}/BlueGreen!25,%
							  5/{Milliers}/BlueGreen!25,%
							  6/{Centaines}/Thistle!50,%
							  7/{Dizaines}/Thistle!50,%
							  8/{Unités}/Thistle!50,%
							  9/{Dixièmes}/Lavender!33,%
							  10/{Centièmes}/Lavender!25,%
							  11/{Millièmes}/Orange!25,%
							  12/{Dix-millièmes}/Yellow!25}{%
		\FPeval{CS}{clip(\C+1)}
		\draw[thick,fill=\col] (A{0}{\C})--(A{0}{\CS})--(B{\CS})--(B{\C})--cycle ;
		\draw ($(A{0}{\C})!0.5!(B{\CS})$) node[font=\bfseries\scriptsize\sffamily,rotate=\angl] {\parbox{\hlp cm}{\centering \nom}};
	}
}

%les lignes (une par une...)
\newcommand\lignenum[1]{%
	\def\L{#1}
	\FPeval{LA}{clip(\L-1)}
	\foreach \C in {0,1,...,\nbcol}{%
		\coordinate (A{\L}{\C}) at ($(A{\LA}{\C}) + (0,{-\hl})$);
	}
	\draw[thick] (A{\LA}{0}) rectangle (A{\L}{\nbcol}) ;
	\foreach \C in {1,2,...,\nbcolav}{%
		\draw[thick,dashed] (A{\LA}{\C})--(A{\L}{\C}) ;
	}
}

\newcommand\casetbl[4][black]{%
	\def\L{#2}
	\FPeval{LA}{clip(\L-1)}
	\def\C{#3}
	\FPeval{CA}{clip(\C-1)}
	\draw ($(A{\LA}{\CA})!0.5!(A{\L}{\C})$) node[font=\bfseries\sffamily,#1] {#4};
}

\newcommand\casetblvirg[2]{%
	\def\L{#1}
	\FPeval{LA}{clip(\L-1)}
	\def\C{#2}
	\FPeval{CA}{clip(\C-1)}
	\draw ($(A{\LA}{\CA})!0.5!(A{\L}{\C}) + ({0.25*\lgcol},{-0.15*\hl})$) node[font=\bfseries\sffamily] {,};
}

%les nœuds des cases sont nommés (A{\L}{\C}) avec \C entre 0 et \nbcol et \L entre 0 et \nblig
\begin{tikzpicture}[line join=bevel]
	%données dimensions
	\def\nbcol{13}
	\FPeval{\nbcolav}{\nbcol-1} %avant-dernière colonne
	\def\angl{50} %angle
	\def\hl{0.8} %hauteur ligne
	\def\hlp{2} %'hauteur' ligne penchée
	\def\lgcol{1} %largeur colonne
	%notice penchée
	\lignepenchee
	%lignes
	\def\nblig{3}
	\foreach \i in {1,2,...,\nblig}{\lignenum{\i}}
	%remplissage L1
	\casetbl{1}{6}{3}
	\casetbl{1}{7}{9}
	\casetbl[blue]{1}{8}{4}
	\casetbl{1}{9}{1}
	\casetblvirg{1}{9}
	\casetbl{1}{10}{0}
	\casetbl[red]{1}{11}{4}
	\casetbl{1}{12}{5}
\end{tikzpicture}

\end{document}