diff --git a/progs/altree b/progs/altree
index 86110188d7374d95ced973008cb3deb081a87ed8..cf4ed8a80b943341b52713e6bca7eb3890047c9a 100755
--- a/progs/altree
+++ b/progs/altree
@@ -505,34 +505,18 @@ sub FusionBrNulles
 ################### CLEAN FUNCTION  ######################
 ##########################################################
 
-sub CleanCaseControl
+sub CleanStats
 {
     my($tree)=shift;
     
     foreach my $node ($tree->GetNodesList()) {
 	$node->EraseCase();
 	$node->EraseControl();
-    }
-}
-
-sub CleanChi2
-{
-    my($tree)=shift;
-    
-    foreach my $node ($tree->GetNodesList()) {
+	$node->EraseQuanti();	
 	delete $node->{"res_test"};
     }
 }
 
-sub CleanQuanti
-{
-    my($tree)=shift;
-    
-    foreach my $node ($tree->GetNodesList()) {
-	$node->EraseQuanti();
-    }
-}
-
 ##########################################################
 ########### FUNCTIONS FOR ASSOCIATION TEST ###############
 ##########################################################
@@ -659,12 +643,7 @@ sub RepeatAssociation
 
     my($i, $j);
     for ($i=0; $i<$nb_permutation; $i++) {
-	if ($dataqual == DataQual::QUALI) {
-	    CleanCaseControl($tree);
-	} else {
-	    CleanQuanti($tree);
-	}
-	CleanChi2($tree); #marche aussi pour le F
+	CleanStats($tree);
 	if ($dataqual == DataQual::QUALI) {
 	    Association($racine, $correspondance, $prolonge, $sign_util);
 	} else {