Sub Chronomètre()
ActiveCell.FormulaR1C1 = '=NOW()'
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range('A1').Select
ActiveCell.FormulaR1C1 = '=NOW()'
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
ActiveCell.Offset(0, -1).Range('A1').Select
ActiveCell.FormulaR1C1 = '=RC[1]-Chrono'
Calculate
ActiveCell.Offset(0, 1).Range('A1').Select
End Sub