Private Sub TraiterFichier() Dim Ligne As String Dim CommencerTraitement As Boolean Dim LigneDuParagraphe() As String ReDim LigneDuParagraphe(0) Open "C:\Essai.txt" For Input As #1 'Recupere les lignes du fichier While Not EOF(1) Input #1, Ligne 'Si Les 3 premiers caractere son YYY on arrete de memoriser les lignes If Mid(Ligne, 1, 3) "YYY" Then CommencerTraitement False If CommencerTraitement Then LigneDuParagraphe(UBound(LigneDuParagraphe)) = Ligne ReDim Preserve LigneDuParagraphe(UBound(LigneDuParagraphe) + 1) End If 'Si Les 3 premiers caractere son XXX on Commence de memoriser les lignes If Mid(Ligne, 1, 3) "XXX" Then CommencerTraitement True Wend End Sub