Donner de l'effet a une action, est ce possible en VBA

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const Delai& = 50   'réglez le délai en millisecondes

Sub aa()
Dim i&
'--- on agrandit ---
For i& = 1 To 100
  Sleep Delai&
  Columns("E:E").ColumnWidth = i&
Next i&
'--- on réduit ---
For i& = 100 To 1 Step -1
  Sleep Delai&
  Columns("E:E").ColumnWidth = i&
Next i&
End Sub

Sub essai()
Do While Range("E:E").ColumnWidth > 0.1
    Range("E:E").ColumnWidth = Range("E:E").ColumnWidth - 0.5
Loop
End Sub

Columns("E:E").Select
Selection.EntireColumn.Hidden = True

Sub Reduire()
With ActiveSheet
Do While .Shapes("Barre").Width > 10
    .Shapes("Barre").Width = .Shapes("Barre").Width - 5
    Deb = Timer
    Do While Timer < Deb + 0.35
        i = 1 + 1
    Loop
    Application.ScreenUpdating = True
Loop
End With
End Sub

Sub Agrandir()
With ActiveSheet
Do While .Shapes("Barre").Width < 100
    .Shapes("Barre").Width = .Shapes("Barre").Width + 5
    Deb = Timer
    Do While Timer < Deb + 0.35
        i = 1 + 1
    Loop
    Application.ScreenUpdating = True
Loop
End With
End Sub