Sub histo_save()
Dim spot As Worksheet, data As Worksheet
Dim spotRange As Range, eur As Range
Dim nbC As Integer, nbPeriod As Integer
Set spot = Workbooks("lookup_v7.xls").Worksheets("Spot")
Set data = Workbooks("lookup_v7.xls").Worksheets("Data")
nbC = 5
nbPeriod = 50
Application.ScreenUpdating = False
'record new data
'''''''' spot.Select
Set spotRange = spot.Range(spot.Cells(i + 3, j + 3), spot.Cells(i + 3, j + 3 + nbC))
'ActiveWorkbook.PrecisionAsDisplayed = False
''''''''data.Select
'shift down data
'''''''' data.Range(Cells(i + 2, j + 1), Cells(i + 2, j + 1 + nbC)).Select
'''''''' Selection.Insert Shift:=xlDown
data.Range(data.Cells(i + 2, j + 1), data.Cells(i + 2, j + 1 + nbC)).Insert Shift:=xlDown
'input new data
data.Cells(i + 2, j + 1) = Now
data.Range(data.Cells(i + 2, j + 2), data.Cells(i + 2, j + 2 + nbC)) = spotRange
'delete last line
data.Range(data.Cells(i + 2 + nbPeriod, j + 1), data.Cells(i + 2 + nbPeriod, j + 2 + nbC)).Delete
'call histo_matrix before "spot.Select"
Call histo_matrix
'--- then spot.Select
Application.ScreenUpdating = True
'''''''spot.Select
End Sub