[myDearFriend!]

Bonsoir lolonene, Jean-Marie,

Comme j'aime bien prendre les problèmes à l'envers :silly:, ci-joint une autre proposition...

J'ai utilisé ce code :

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

Cordialement, [file name=mDF_AnimGraph.zip size=14822]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_AnimGraph.zip[/file]