Sub Cadre()
Dim t&, pos#
Do
If ActiveSheet.CodeName <> "Feuil1" Then Exit Sub
If Int(10 * Timer) > t Then
pos = ActiveWindow.Panes(2).VisibleRange.Cells(3, 2).Left
If ActiveSheet.Shapes("Graphique 1").Left <> pos Then _
ActiveSheet.Shapes("Graphique 1").Left = pos
t = Int(10 * Timer)
End If
DoEvents
Loop
End Sub