ou encore en macro
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 09/04/2002 par Royer
'
'
Workbooks.OpenText FileName:= _
"http://www.banque-france.fr/fr/telechar/bsme/ceurusci.txt", Origin:= _
xlWindows, StartRow:=4, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), _
Array(2, 1))
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "Date"
Range("B1").Select
ActiveCell.FormulaR1C1 = "Valeur"
Range("A2").Select
End Sub