Private Sub Worksheet_Change(ByVal Target As Range)
With Shapes("Bouton 6")
.Top = IIf(Application.CountA(Cells), _
Cells.Find("*", , xlValues, , xlByRows, xlPrevious), [A1]).Offset(8).Top
'---cadrez comme vous voulez---
ActiveWindow.ScrollRow = Application.Max(.TopLeftCell.Row - 14, 1)
End With
End Sub