Problème en VBA (mémoire insufisante)

Bonjour,
lorsque j'ouvre mes macros, soit mon excel plante en plus d'exécuter mal certaine de mes macros.
De plus, je ne peux pas modifier celle-ci.
Voici mon code tel qu'il est:

Option Explicit
Sub test()
Dim i As Variant
Dim secondes As Variant
Dim timer_avant As Variant


secondes = 0.01
timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents
Loop
Range("v2").Value = Range("v2").Value + 1
Call test
End Sub
Sub test2()
Dim i As Variant
Dim secondes As Variant
Dim timer_avant As Variant

secondes = 0.01
timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents
Loop
Range("v2").Value = Range("v2").Value - 1
Call test2
End Sub
Sub stoptest()
Dim i As Variant
Dim secondes As Variant
Dim timer_avant As Variant

secondes = 0.01
timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents
Loop
Range("v2").Value = Range("v2").Value
Call stoptest
End Sub

Sub etirementv()
Dim i As Variant
Dim secondes As Variant
Dim timer_avant As Variant
If Range("r4").Value >= 2 Then
Else
secondes = 0.01
timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents
Loop
Range("r4").Value = Range("r4").Value + 0.01
Call etirementv
End If
End Sub
Sub moinsetirementv()
Dim i As Variant
Dim secondes As Variant
Dim timer_avant As Variant
If Range("r4").Value <= 0 Then
Else
secondes = 0.01
timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents
Loop
Range("r4").Value = Range("r4").Value - 0.01
Call moinsetirementv
End If
End Sub
Sub etirementh()
Dim i As Variant
Dim secondes As Variant
Dim timer_avant As Variant
If Range("r2").Value >= 2 Then
Else
secondes = 0.01
timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents
Loop
Range("r2").Value = Range("r2").Value + 0.01
Call etirementh
End If
End Sub
Sub moinsetirementh()
Dim i As Variant
Dim secondes As Variant
Dim timer_avant As Variant
If Range("r2").Value = 0 Then
Else
secondes = 0.01
timer_avant = Timer

Do While Timer < timer_avant + secondes
DoEvents
Loop
Range("r2").Value = Range("r2").Value - 0.01
Call moinsetirementh
End If
End Sub