Chemin est une chaîne
Chemin = RegistrePremièreSousClé()
Chemin = Chemin + "\MonAppli\"
SI RegistreCréeClé(Chemin) = Faux ALORS
Erreur("Erreur lors de la création de la clé")
RETOUR
FIN
SI RegistreEcrit(Chemin, "Langage", "English") = Faux ALORS
Erreur("Erreur lors l'écriture dans la clé")
RETOUR
FIN