Sub Macro1()
Temps = 5 'Temporisation en secondes
chronos = Now
periode = Temps / (CLng(24 * 60) * 60)
While Now < chronos + periode
DoEvents
Wend
Range('C10').Select
Selection.Copy
Range('E65536').End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Macro1
End Sub