je viens d'essayer à nouveau, ça ne marche plus.... sais pas ce qui s'est passé...
(vu ta réaction tu as dû trouver mon code bizarre
MON CODE :Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 07/07/2000 par CyberPAPY
'
' Touche de raccourci du clavier: Ctrl+i
'
'----------Changer ici si le nom ne convient pas-------------------------------------------
f = "ESSAI.xls" '---------- nom du fichier Excel
C = "cours" '----------------------nom de la feuille ou l'on stocke les données
Windows(f).Activate '
Sheets(C).Select
B = Cells(2, 10)
Columns("B:B").Select
DateFormat = "jj/mm/aa"
'--------------------------------------Importation des cours de la période
Workbooks.OpenText Filename:="D:\ANALYSE\blabla.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, Comma:=False, _
Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array( _
3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1))
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'--------------------------------ouverture de la conversion
Windows(f).Activate
Sheets(C).Select
Range("a30000").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'-------------------------------tri chronologique
Range("a2.G32000").Select
Selection.Sort Key1:=Range("b2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("blabla.txt").Select
ActiveWorkbook.Close savechanges:=False
End Sub