Sub ExtraireM3u()
Dim Contenu() As String, final() As String
Dim i As Integer, j As Integer
Dim f: f = FreeFile()
Open ThisWorkbook.Path & "\777.m3u" For Input As #f
Contenu = Split(Input(LOF(f), f), vbLf)
Close #f
For i = 0 To UBound(Contenu)
If Left(Contenu(i), 7) = "#EXTINF" Then
j = j + 1
ReDim Preserve final(1 To j)
final(j) = Contenu(i)
End If
Next
If j > 0 Then Sheets("Feuil1").Range("A1").Resize(j) = final
End Sub