Sub import_pro3()
Dim i As Long, a As Workbook, donnees As Range
Dim Dossier, oFSO, oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dossier = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
If oFSO.FolderExists(Dossier) Then
For Each oFl In oFSO.GetFolder(Dossier).Files
If Split(oFl.Name, ".")(UBound(Split(oFl.Name, "."))) = "pro" Then
Workbooks.OpenText Dossier & oFl.Name, _
Origin:=xlWindows, StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False
Set a = ActiveWorkbook
Set donnees = a.Sheets(1).UsedRange
With ThisWorkbook.Sheets("IMPORTATION")
.[A65536].End(xlUp)(2) = oFl.Name
donnees.Copy .[B65536].End(xlUp)(2)
End With
a.Close False
Set a = Nothing
Set donnees = Nothing
Application.CutCopyMode = False
End If
Next oFl
End If
With ThisWorkbook.Worksheets("IMPORTATION")
.Range([A1], [A65536].End(xlUp)).TextToColumns Range("A1"), xlDelimited, xlDoubleQuote, , , , , , True, ".", FieldInfo:=Array(Array(1, 5), Array(2, 9))
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub