Sub appel()
Dim a&, b&, c&
a = phase1
texte = texte & "phase1 a démarré a" & Format(Time, "hh:nn:ss") & vbCrLf
b = phase2
texte = texte & "phase2 a démarré a" & Format(Time, "hh:nn:ss") & vbCrLf
c = phase3
texte = texte & "phase3 a démarré a" & Format(Time, "hh:nn:ss") & vbCrLf
d = phase4
texte = texte & "phase4 a démarré a" & Format(Time, "hh:nn:ss") & vbCrLf
e = phase5
texte = texte & "phase5 a démarré a" & Format(Time, "hh:nn:ss") & vbCrLf
MsgBox texte & vbCrLf & vbCrLf & a & vbCrLf & b & vbCrLf & c & vbCrLf & d & vbCrLf & e
End Sub
Function phase1()
For i = 1 To Round(Rnd * 1000000000): Next: phase1 = i
End Function
Function phase2()
For i = 1 To Round(Rnd * 1000000000): Next: phase2 = i
End Function
Function phase3()
For i = 1 To Round(Rnd * 1000000000): Next: phase3 = i
End Function
Function phase4()
For i = 1 To Round(Rnd * 1000000000): Next: phase4 = i
End Function
Function phase5()
For i = 1 To Round(Rnd * 100000000): Next: phase5 = i
End Function