Private Sub Workbook_Open()
Application.OnTime 1, "ThisWorkbook.ArrierePlan"
End Sub
Sub ArrierePlan()
Dim VR As Range
Do
With ActiveSheet
Set VR = Windows(1).VisibleRange
If .Shapes(1).Top <> VR.Top Then .Shapes(1).Top = VR.Top
If .Shapes(1).Left <> VR.Left Then .Shapes(1).Left = VR.Left
If .Shapes(2).Top <> VR.Top Then .Shapes(2).Top = VR.Top
If .Shapes(2).Left <> VR.Columns(4).Left Then .Shapes(2).Left = VR.Columns(4).Left
DoEvents
End With
Loop
End Sub