Problème de rotation d'une image avec VBA

Sub Anim_Loading()
    'Déclaration des variables
    Dim Repetition As Integer
    'Affectation des variables
    Repetition = 0
    Do
    DoEvents
    'Incrementation de la répétition + (vitesse)
    Repetition = Repetition + 4
    'Animer l'image en la tournant
    Feuil1.Shapes("Image 2").Rotation = Repetition
    'Animation
    Animation (0)
    Loop Until Repetition = 1440
End Sub

Init dans AnimLoading :
    Application.StatusBar = "I'm working ! I will be available quickly. Please, wait ....................... "
Lancement par Call ProgressStatusBar et Animation(0.15)

Sub ProgressStatusBar()
    Chaine = Application.StatusBar
    Application.StatusBar = Right(Chaine, 1) & Mid(Chaine, 1, Len(Chaine) - 1)
End Sub

Option Explicit
               #If VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long, ByVal DuréeMS As Long, ByVal AdrSub As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long) As Long
               #Else
Private Declare Function SetTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long, ByVal DuréeMS As Long, ByVal AdrSub As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long) As Long
                  #End If
Private Shp As Shape, Ang As Long, Temps As Date
Public Sub AnimLoading()
   Set Shp = Feuil1.Shapes("Image 2")
   If Temps = 0 Then
      SetTimer Application.hWnd, Idt:=1, DuréeMS:=40, AdrSub:=AddressOf TimerProc
   Else
      Application.OnTime Temps, "ArrêtTimer", Schedule:=False
      End If
   Temps = Now + TimeSerial(0, 0, 5)
   Application.OnTime Temps, "ArrêtTimer"
   End Sub
Private Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal Idt As Long, ByVal Tic As Long)
   On Error Resume Next
   Ang = (Ang + 10) Mod 360
   Shp.Rotation = Ang
   If Err Then KillTimer Application.hWnd, Idt:=1
   End Sub
Public Sub ArrêtTimer()
   Temps = 0
   KillTimer Application.hWnd, Idt:=1
   Ang = 0
   Shp.Rotation = Ang
   End Sub

Option Explicit
               #If VBA7 Then
Private Declare PtrSafe Function SetTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long, ByVal DuréeMS As Long, ByVal AdrSub As LongPtr) As Long
Private Declare PtrSafe Function KillTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long) As Long
               #Else
Private Declare Function SetTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long, ByVal DuréeMS As Long, ByVal AdrSub As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" _
   (ByVal hWnd As Long, ByVal Idt As Long) As Long
                  #End If
Private Temps As Date, Shp As Shape, VitAng As Long, ÇaTourne As Boolean
Public Sub AnimLoading()
   Set Shp = Feuil1.Shapes("Image 2")
   If Temps = 0 Then
      SetTimer Application.hWnd, Idt:=1, DuréeMS:=40, AdrSub:=AddressOf TimerProc
   Else
      Application.OnTime Temps, "ArrêtRotation", Schedule:=False
      End If
   Temps = Now + TimeSerial(0, 0, 5)
   ÇaTourne = True
   Application.OnTime Temps, "ArrêtRotation"
   End Sub
Private Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal Idt As Long, ByVal Tic As Long)
   On Error Resume Next
   If ÇaTourne Then
      VitAng = VitAng + 1: If VitAng > 10 Then VitAng = 10
   Else
      VitAng = VitAng - 1: If VitAng = 0 Then KillTimer Application.hWnd, Idt:=1
      End If
   Shp.Rotation = (Shp.Rotation + VitAng) Mod 360
   If Err Then KillTimer Application.hWnd, Idt:=1
   End Sub
Public Sub ArrêtRotation()
   ÇaTourne = False
   Temps = 0
   End Sub

Private Sub ToggleButton1_Click()
Dim periode, s As Shape, t, a
periode = 10 'durée d'un tour complet en secondes
Set s = Feuil1.Shapes("Image 2")
ToggleButton1.Caption = IIf(ToggleButton1, "Arrêt", "Marche")
t = Timer
While ToggleButton1
    s.Rotation = 360 * (Timer - t) / periode Mod 360
    DoEvents
    Application.ScreenUpdating = True
Wend
s.Rotation = 0
End Sub

Sub test()
Anim_Loading Feuil1.Shapes("Image 2"), 3 '3 secondes
End Sub


Sub Anim_Loading(img, x)
        Dim  t As Double 'Déclaration des variables
    t = Timer: Affectation des variables
    Do
    DoEvents
    'Incrementation de la répétition + (vitesse)
     'Animer l'image en la tournant
    img.Rotation = 360 * (Timer - t) / x Mod 360
    'Animation
    Loop Until Timer - t >= x
End Sub

Private Sub ToggleButton1_Click()
Dim periode, s As Shape, t, a
periode = 10 'durée d'un tour complet en secondes
Set s = Feuil1.Shapes("Image 2")
ToggleButton1.Caption = IIf(ToggleButton1, "Arrêt", "Marche")
t = Timer
If IsNumeric([Angle]) Then a = [Angle]
While ToggleButton1
    s.Rotation = a + 360 * (Timer - t) / periode Mod 360
    DoEvents
    Application.ScreenUpdating = True
Wend
ThisWorkbook.Names.Add "Angle", s.Rotation 'mémorisation de l'angle dans un nom défini
End Sub