diff --git a/outils/stats-corpus/statsCorpus.pl b/outils/stats-corpus/statsCorpus.pl
index 25a30a8..3f517bf 100755
--- a/outils/stats-corpus/statsCorpus.pl
+++ b/outils/stats-corpus/statsCorpus.pl
@@ -23,8 +23,8 @@
             "    $substitut [ -f (csv|json|tsv) ] [ -x (normal|lodex) ] \n".
             "    $programme -h \n";
 
-my $version   = "3.4.2";
-my $dateModif = "1 Octobre 2018";
+my $version   = "3.5.1";
+my $dateModif = "16 Octobre 2018";
 
 # Variables pour les options
 my $aide        = 0;
@@ -181,6 +181,14 @@
         "numerique-premium"  => "Numérique Premium",
         );
 
+# Liste des outils utilisés pour générer les catégories
+my %outil = (
+        "Catégories WoS"            => "multicat", 
+        "Catégories Science-Metrix" => "multicat", 
+        "Catégories Scopus"         => "multicat", 
+        "Catégories INIST"          => "nb",
+        );
+
 if ( $xtended ) {
         @champs = ("Nom de fichier", "Titre", "Auteur(s)", "Affiliation(s)", 
                    "Revue ou monographie", "ISSN", "e-ISSN", "ISBN", "e-ISBN", 
@@ -807,7 +815,8 @@
                                                 print OUT "          \"Nom\": $specifique,\n";
                                                 print OUT "          \"Classification\": \[\n";
                                                 print OUT "              $generique\n";
-                                                print OUT "            \]\n";
+                                                print OUT "            \],\n";
+                                                print OUT "          \"Outil\": \"$outil{$champ}\"\n";
                                                 print OUT "        }";
                                                 print OUT "," if @niv1  or @niv2;
                                                 print OUT "\n";
@@ -827,7 +836,8 @@
                                         while (my $generique = shift @niv2) {
                                                 print OUT "              $generique", @niv2 ? "," : "", "\n";
                                                 }
-                                        print OUT "            \]\n";
+                                        print OUT "            \],\n";
+                                        print OUT "          \"Outil\": \"$outil{$champ}\"\n";
                                         print OUT "        }", @niv1 ? "," : "", "\n";
                                         next;
                                         }