VBA obtient du contenu du fichier texte

' Returns an array of lines from a text file
Function FileInArray() As Variant
    Dim fileSO As Object, textFile As Object, content
    On Error GoTo CExit
    Set fileSO = CreateObject("Scripting.FileSystemObject")
    Set textFile = fileSO.OpenTextFile("C:\temp\file.txt", 1)
    content = textFile.ReadAll
    FileInArray = Split(content, vbNewLine)
    textFile.Close
CExit:
End Function
VasteMonde