diff --git "a/Niveau-1/Iramuteq/Pr\303\251paration_Donn\303\251es_entr\303\251e_Iramuteq2.pl" "b/Niveau-1/Iramuteq/Pr\303\251paration_Donn\303\251es_entr\303\251e_Iramuteq2.pl"
new file mode 100644
index 0000000..ea49e7c
--- /dev/null
+++ "b/Niveau-1/Iramuteq/Pr\303\251paration_Donn\303\251es_entr\303\251e_Iramuteq2.pl"
@@ -0,0 +1,54 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use utf8;
+use open qw/:std :utf8/;
+
+use Encode;
+use Getopt::Long;
+
+my ($programme) = $0 =~ m|^(?:.*/)?(.+)|;
+$programme = decode_utf8($programme);
+
+my $dir = "";
+my $sortie = "";
+
+eval	{
+	$SIG{__WARN__} = sub {usage(1);};
+		GetOptions(
+		"dir=s"      => \$dir,
+		"sortie=s"   => \$sortie,
+		);
+	};
+$SIG{__WARN__} = sub {warn $_[0];};
+
+usage(2) if not $dir or not $racine or not $metadata or not $sortie;
+
+opendir(my $dh, $dir) or die "Couldn't open file, $!";
+	my @files = readdir($dh);
+	closedir($dh);
+	my $size = @files;
+open(DATA, ">:utf8", $sortie) 
+or die "Couldn't open file $sortie, $!";
+print METADATA "\"id\",\"sous_corpus\"\n";
+foreach my $file(@files){
+	$file =~ /(\pL+)_\d*/;
+	print DATA "**** *souscorpus_$1\n";
+	open(FILE, "<:encoding(UTF-8)", "$dir/$file") or die "Couldn't open file $file, $!";
+	my @texte = <FILE>;
+	print DATA @texte;
+	close(FILE);
+}
+close(DATA);
+
+exit 0;
+
+
+sub usage
+{
+my $code = shift;
+
+print STDERR "Usage : $programme -d dir -s sortie\n";
+exit $code;
+}