Open cheminFile For Input As #1' ouvrir While Not EOF(1) Line Input #1, Msgtext 'copier les ligne dans le variable msgtext Wend