diff --git a/outils/stats-corpus/statsCorpus.pl b/outils/stats-corpus/statsCorpus.pl
index 216f9eb..5f98848 100755
--- a/outils/stats-corpus/statsCorpus.pl
+++ b/outils/stats-corpus/statsCorpus.pl
@@ -189,6 +189,13 @@
         "Catégories INIST"          => "nb",
         );
 
+# Liste des catégories WoS de niveau 1
+my %generique = (
+        "arts and humanities" => 1,
+        "science" => 1,
+        "social science" => 1,
+        );
+
 if ( $xtended eq 'lodex' ) {
         @champs = ("Nom de fichier", "Titre", "Auteur(s)", "Affiliation(s)", 
                    "Revue ou monographie", "ISSN", "e-ISSN", "ISBN", "e-ISBN", 
@@ -838,14 +845,24 @@
                                         foreach my $item (@niv2) {
                                                 $item =~ s/\\/\\\\/go;
                                                 $item =~ s/"/\\"/go;
-                                                $item = '"' . $item . '"';
                                                 }
-                                        my $generique = shift @niv2;
+                                        my $generique = "";
                                         while (my $specifique = shift @niv2) {
+                                                if ( $specifique =~ /^1 - /o ) {
+                                                        $generique = $specifique;
+                                                        next;
+                                                        }
+                                                elsif ( $generique{$specifique} ) {
+                                                        $generique = "1 - $specifique";
+                                                        next;
+                                                        }
+                                                elsif ( $specifique !~ /^\d - /o ) {
+                                                        $specifique = "2 - $specifique";
+                                                        }
                                                 print OUT "        {\n";
-                                                print OUT "          \"Nom\": $specifique,\n";
+                                                print OUT "          \"Nom\": \"$specifique\",\n";
                                                 print OUT "          \"Classification\": \[\n";
-                                                print OUT "              $generique\n";
+                                                print OUT "              \"$generique\"\n";
                                                 print OUT "            \],\n";
                                                 print OUT "          \"Outils\": \[\n";
                                                 print OUT "              \"$outil{$champ}\"\n";
@@ -860,14 +877,13 @@
                                         foreach my $item (@niv2) {
                                                 $item =~ s/\\/\\\\/go;
                                                 $item =~ s/"/\\"/go;
-                                                $item = '"' . $item . '"';
                                                 }
                                         my $specifique = pop @niv2;
                                         print OUT "        {\n";
-                                        print OUT "          \"Nom\": $specifique,\n";
+                                        print OUT "          \"Nom\": \"$specifique\",\n";
                                         print OUT "          \"Classification\": \[\n";
                                         while (my $generique = shift @niv2) {
-                                                print OUT "              $generique", @niv2 ? "," : "", "\n";
+                                                print OUT "              \"$generique\"", @niv2 ? "," : "", "\n";
                                                 }
                                         print OUT "            \],\n";
                                         print OUT "          \"Outils\": \[\n";