Sub test()
For lig = 1 To 11
If h > 128 Then
rep = MsgBox("Masquer aprés la ligne" & vbCr & lig - 2, vbYesNo + vbExclamation, "Masquage")
If rep = vbYes Then
For k = 11 To lig - 1 Step -1
Rows(k).Hidden = True
Next
Exit Sub
End If
Exit Sub
End If
h = h + Cells(lig, 1).Height
Next
End Sub