Sub importe()
Dim Lig&
With Application: .ScreenUpdating = False: .Calculation = xlManual: .EnableEvents = False: End With
Lig = Application.Match(CLng(Date), [a:a], 0)
Cells(Lig, "B").Formula = "=SUM([test1.xlsx]Feuil1!$E3:$E65000)"
Cells(Lig, "C").Formula = "=SUM([test1.xlsx]Feuil1!$h3:$h65000)"
Cells(Lig, "B").Value = Cells(Lig, "B").Value
Cells(Lig, "C").Value = Cells(Lig, "C").Value
Application.Goto Cells(Lig, 1), True
With Application: .EnableEvents = True: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub