Sub Animer()
Dim TabMem As Variant, TabTemp As Variant
Dim L As Long, L2 As Long
Dim Vmax As Long
'Mémorise les données
With Sheets('Donnees')
L = .Range('B65536').End(xlUp).Row
TabTemp = .Range(.Cells(1, 2), .Cells(L, 2)).Value
TabMem = .Range(.Cells(1, 2), .Cells(L, 2)).Value
Vmax = Application.WorksheetFunction.Max(TabTemp)
' Animation
For L2 = 1 To Vmax Step 5
For L = 1 To UBound(TabTemp, 1)
TabTemp(L, 1) = Application.WorksheetFunction.Max(TabMem(L, 1), Vmax - L2)
Next L
.Range(.Cells(1, 2), .Cells(UBound(TabTemp, 1), 2)).Value = TabTemp
DoEvents
Next L2
.Range(.Cells(1, 2), .Cells(UBound(TabMem, 1), 2)).Value = TabMem
End With
Beep
End Sub