Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim TopPos As Long
Dim LeftPos As Long
Dim X As Long
Dim Y As Long
For X = 1 To ActiveWindow.ScrollRow - 1
TopPos = TopPos + Cells(X, 1).Height
Next X
For Y = 1 To ActiveWindow.ScrollColumn - 1
LeftPos = LeftPos + Cells(Y, 1).Width
Next Y
ActiveSheet.Shapes("INSERER1lignecom").Left = LeftPos + ActiveWindow.UsableWidth - 600
ActiveSheet.Shapes("INSERER1lignecom").Top = TopPos + ActiveWindow.UsableHeight - 580
end sub