Importation txt multi-selection avec formats!

Dim Classeur, i As Byte
Classeur = Application.GetOpenFilename("Extraction texte,*.txt", , , , True)
If Classeur = False Then Exit Sub
For i = LBound(Classeur) To UBound(Classeur)
    Workbooks.OpenText Filename:=Classeur(i) , (...), FieldInfo:=Array(Array(1, 4), Array(2, 1), ...
Next i

Sub test()
Dim FD As FileDialog, SI
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .Filters.Clear
        .Filters.Add "Fichier texte", "*.txt"
        .AllowMultiSelect = True
        If .Show = -1 Then
            For Each SI In .SelectedItems
                Workbooks.OpenText Filename:=SI ......
                'Traitements...
                ActiveWorkbook.Close
            Next SI
        End If
    End With
End Sub

Dim Classeur, i As Byte
Classeur = Application.GetOpenFilename("Extraction texte,*.txt", , , , True)
If VarType(Classeur) = vbBoolean Then Exit Sub
For i = LBound(Classeur) To UBound(Classeur)
    'Workbooks.OpenText Filename:=Classeur(i) , (...), FieldInfo:=Array(Array(1, 4), Array(2, 1), ...
Next i