Sub Import()
Application.ScreenUpdating = False
MonNom = ActiveWorkbook.Name
Workbooks.OpenText Filename:="[COLOR=red]F:\texcel1\[/COLOR]UserDataExport.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:=":", FieldInfo:= _
Array(Array(1, 1), Array(2, 1))
For n = 2 To Workbooks("UserDataExport.txt").Sheets("UserDataExport").Range("A65536").End(xlUp).Row
If Range("A" & n) = "[User]" Then
fin = n - 1
Exit For
End If
Next n
Workbooks("UserDataExport.txt").Sheets("UserDataExport").Range("A2:A" & fin).Copy
Workbooks(MonNom).Sheets("Feuil1").Range("A1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
ligne = 1
For n = 1 To Workbooks("UserDataExport.txt").Sheets("UserDataExport").Range("A65536").End(xlUp).Row
For m = 1 To Workbooks(MonNom).Sheets("Feuil1").Range("IV1").End(xlToLeft).Column
If Workbooks("UserDataExport.txt").Sheets("UserDataExport").Range("A" & n) = Workbooks(MonNom).Sheets("Feuil1").Cells(1, m) Then
Workbooks(MonNom).Sheets("Feuil1").Cells(ligne, m) = Workbooks("UserDataExport.txt").Sheets("UserDataExport").Range("B" & n)
End If
Next m
If Workbooks("UserDataExport.txt").Sheets("UserDataExport").Range("A" & n) = "[User]" Then ligne = ligne + 1
Next n
Workbooks("UserDataExport.txt").Close
Application.ScreenUpdating = True
End Sub