Sub Addition()
'
' Division Macro
' Macro recorded 2007-03-29 by Marcel Lachambre
'
'
Range("L2").Select
ActiveCell.FormulaR1C1 = "Add"
Range("A7:H66").Select
Selection.ClearContents
Range("v110:ab159").Select
Selection.Copy
Sheets("Test").Select
Range("A7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("I:I").Select
Selection.EntireColumn.Hidden = True
Range("H7").Select
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Es-tu prêt pour 5 minutes?", 4)) = vbYes Then (C'est ici que je voudrait que le message change)
PauseTime = 300 ' Set duration. (C'est ici que je voudrait que le temps change)
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Fini"
Else
End
End If
Range("A200").Select
End Sub