VBA : Appel de fonction

bonjour,

le code VBA Excel suivant fonctionne :

Private Sub Workbook_Open()
 MenuBars(xlWorksheet).Menus.Add Caption:="monMenu"
 MenuBars(xlWorksheet).Menus("monMenu").MenuItems.Add _
  Caption:="Cacher la ligne.", _
  OnAction:="cacherLigne"
End Sub

Sub cacherLigne()
 Rows(1).Select
 Selection.EntireRow.Hidden = True
End Sub

pourquoi celui-ci ne fonctionne t'il pas ? :

Private Sub Workbook_Open()
 MenuBars(xlWorksheet).Menus.Add Caption:="monMenu"
 MenuBars(xlWorksheet).Menus("monMenu").MenuItems.Add _
  Caption:="Cacher la ligne 1.", _
                OnAction:="cacherLigne(1)"
End Sub

Sub cacherLigne(ByVal nb as Integer)
 MsgBox nb
 Rows(nb).Select
 Selection.EntireRow.Hidden = True
End Sub

en realite, le "MsgBox nb" fonctionne mais la ligne 1 n'est pas masquee.

sauriez-vous me dire quel est le disfonctionnement du 2eme code et comment le corriger pour qu'il fonctionne ?

merci a vous,

alonsyl