Sub test()
Dim Image As Shape
Dim Tourne As Long, U As Long, Mem As Long, Somme As Long
'Scrute l'ensemble des formes
For Each Image In Feuil1.Shapes
'La position basse de la forme est le haut + la hauteur
U = Image.Top + Image.Height
'Repérage de l'image la plus basse
If U > Mem Then Mem = U
Next Image
'Calcul de la cellule sur la position point
For Tourne = 1 To 1000000
Somme = Somme + Range("A" & Tourne).RowHeight
If Mem < Somme Then
Rows(Tourne + 1 & ":" & Rows.Count).EntireRow.Hidden = True
Exit For
End If
Next Tourne
End Sub