VB

Sub ChercheENU()
Dim Fich As Integer
Dim s As String
Dim P As Integer, i As Integer
Dim d As String
Dim Trouve As Boolean

'Le fichier doit être ouvert en lecture..
    Fich = FreeFile 'N° de fichier libre
    'Ca dépend aussi de la façon dont le fichier a été entrer,
    'peut nécessité LineInput au lieu de Input.
    Open "Chemincomplet\NomFichier.EXT" For Input As #Fich
'Initialise le mot de la recherche
    d = "ENU"
    P = 1
    Do While Not EOF(Fich)
        Input #Fich, s
        For i = 1 To Len(s) - 2
            If Mid(s, i, 3) = d Then
                Trouve = True
                Exit For
            End If
        Next i
        If Trouve Then
        'copier le texte depuis "ENU"...
        'j'ai pas compris.
        End If
        P = P + 1
    Loop
End Sub

        'copier le texte depuis "ENU"...
        'j'ai pas compris.

Private Sub cmdTextEXCEL_Click()
Dim EX As New Application
Dim Book As Workbook
Dim Feuille As Worksheet
Dim i As Integer
Dim ff As Integer
Dim Contenu As String
Dim TB
Dim s As String
Dim P As Integer
Dim d As String
Dim Trouve As Boolean

    ff = FreeFile
    Open "G:\stage\TextversEXCEL\rabat2.txt" For Input As #ff
    Contenu = Input$(LOF(ff), #ff)
    Close #ff
'initV
'Contenu = Transfert
    d = "ENU"
    For i = 1 To Len(Contenu) - 2
        If Mid(Contenu, i, 3) = d Then
            Trouve = True
            Exit For
        End If
    Next i
    If Trouve Then
        s = Mid(Contenu, i)
        TB = Split(s, " ")
        P = UBound(TB)
    End If
    Set EX = CreateObject("Excel.application")
    EX.Visible = True
    
    Set Book = EX.Workbooks.Add
    Set Feuille = Book.Sheets(1)
    With Feuille
    For i = 0 To UBound(TB)
        .Cells(1, i + 1) = TB(i)
    Next i
    End With
End Sub