foreach my $key (sort {lc($Texte{$a}) cmp lc($Texte{$b})} keys %Texte) {
...
}