% !TeX TXS-program:compile = txs:///pdflatex

\documentclass[margin=5mm]{standalone}
\usepackage{ProfLycee-Light}
\useproflyclib{ecritures}

\begin{document}

\begin{tikzpicture}[x=1cm,y=0.15cm]
	\foreach \x in {0,5,...,45}{%
		\draw[very thin,gray!75] (-1,\x) node[left,text=black,font=\small] {\pflpcent[1]{\x}}--++ (9,0) ;
	}
	\foreach \gpe [count=\i from 0] in {A+,O+,B+,A$-$,O$-$,AB+,B$-$,AB$-$}{%
		\draw (\i,0) node[below,font=\small] {\gpe} ;
	}
	\fill ({0-0.15},0) rectangle++ (0.30,38.2) node[above,font=\small] {$38,2\,\%$} ;
	\fill ({1-0.15},0) rectangle++ (0.30,36.5) node[above,font=\small] {$36,5\,\%$} ;
	\fill ({2-0.15},0) rectangle++ (0.30,7.7) node[above,font=\small] {$7,7\,\%$} ;
	\fill ({3-0.15},0) rectangle++ (0.30,6.8) node[above,font=\small] {$6,8\,\%$} ;
	\fill ({4-0.15},0) rectangle++ (0.30,6.5) node[above,font=\small] {$6,5\,\%$} ;
	\fill ({5-0.15},0) rectangle++ (0.30,2.5) node[above,font=\small] {$2,5\,\%$} ;
	\fill ({6-0.15},0) rectangle++ (0.30,1.4) node[above,font=\small] {$1,4\,\%$} ;
	\fill ({7-0.15},0) rectangle++ (0.30,0.4) node[above,font=\small] {$0,4\,\%$} ;
	\draw (-2.5,22.5) node[rotate=90] {Partie des Français} ;
\end{tikzpicture}

\end{document}