%MACRO visuHisto (table = work._histo, var = _numeric_,
				  courbe = oui) ;
	ODS SELECT univar (PERSIST) ;
		PROC UNIVARIATE DATA = &table ;
		VAR &var ;
		HISTOGRAM &var 
			%IF %LOWCASE(&courbe) = oui %THEN %DO ;
				/ KERNEL (COLOR = RED W = 2) 
			%END ;
		;
	RUN ;
	ODS SELECT ALL ;
%MEND visuHisto ;