Probleme sous excel avec VB

Bonjour,

Je travaille sous word2003, jai un probleme avec une des maccros:

Private Sub ComboBox5_DropButtonClick()
If ComboBox5.ListCount = 0 Then
With ComboBox5
.AddItem "YES"
.AddItem "NO"
End With
End If

If ComboBox4.Value = "NO" Then
Worksheets("Sheet1").Range(Rows(154), Rows(166)).Hidden = True

End If
End Sub

J'ai deux valeurs dans ma combobox, je voudrais que si on coche YES, cela fasse apparaitre les lignes 154 a 166 et que si on coche non elle disparaisse... mais ca ne marche pas commme j'ai fait...

Quelqu'un a une idee svp?

Merci d'avance

Pierre :)