procedure Creer_Fichier ( Analyse : in T_Analyse; Chemin : in String; Tabulation : in String ; Ecraser : in Boolean := False );