Sub Macro4()
[COLOR="Green"]' Macro4 Macro
' Macro enregistrée le 04/05/2009 par VBACrumble[/COLOR]
Dim TWBK As Workbook, SWBK As Workbook
Set TWBK = ThisWorkbook
Dim fichier$, b&, a
fichier = "C:\TEMP\essai.txt"
Application.ScreenUpdating = False
Workbooks.OpenText fichier, xlWindows, 1
Set SWBK = ActiveWorkbook
With SWBK
With .ActiveSheet.Range("A1")
With .CurrentRegion
a = .Value
b = .Columns.Count
End With
End With
.Close False
End With
TWBK.Sheets(1).Range("A1").Resize(UBound(a), b).Value = a
Application.ScreenUpdating = True
End Sub