Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H6")) Is Nothing Then Exit Sub
Calculate
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.Calculate
End With
For i = 0 To 7
MsgBox i & " " & BDDF_PRES.Cells(8 + i, 8).value
If Cells(8 + i, 8) = 0 Then
Rows(8 + i).EntireRow.Hidden = True
Else
Rows(8 + i).EntireRow.Hidden = False
End If
Next i
End Sub