Private Sub UserForm_Initialize()
Dim i, j As Integer
If Worksheets("hydrolique").Cells(2, 1) > 25 Then
For i = Worksheets("Page calcule").Cells(5, 4) - 25 To 25
Me.MultiPage1.Pages([COLOR="Red"]1[/COLOR]).Controls("Frame" & i + 2).Visible = False
Next i
Else
Me.MultiPage1.Pages([COLOR="red"]1[/COLOR]).Visible = False
For i = Worksheets("hydrolique").Cells(2, 1) To 25
Me.MultiPage1.Pages([COLOR="red"]0[/COLOR]).Controls("Frame" & i + 2).Visible = False
Next i
With Me
.Height = 75 + 18 * Worksheets("hydrolique").Cells(2, 1)
End With
End If
End Sub