Comment tester en vba la valeur d'une cellule Excel issue d'une formule

Bonjour,

je souhaite faire une macro en vba afin de modifier la hauteur de lignes du tableau Excel en fonction du résultat.

je m'explique
si la formule de la cellule B3 a pour résultat 0 alors la hauteur de la ligne 3 sera 0
si la formule de la cellule B3 a un résultat >0 alors la hauteur de la ligne 3 sera 15
L'idée étant de cacher les lignes ayant pour résultat 0

J'utilise la macro suivante

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nb As Integer
For i = 3 To 66
If Target.Row = i Then
Nb = Cells(i, 2).Value
If Nb = 0 Then
Target.Rows.RowHeight = 15
ElseIf Nb > 0 Then
Target.Rows.RowHeight = 30
End If
End If
Next i
End Sub


Cette macro fonctionne avec des chiffres dans les cellules B3 à B66 mais dès que je remplace les chiffres par des formules ca ne fonctionne plus.

Merci par avance pour votre aide