Dim w as Worksheets

Bonsoir à tous,
voici mon souci:

j'ai différentes informations dans un USF incluses dans des combobox, des textbox et un ListBox;
je voudrais ensuites insérer ces données dans une feuille excel qui dépend du contenu des textbox.
Plus clairement: selon le listindex du listbox, il faudrait que les infos s'insèrent dans telle ou telle feuille...
mais j'ai un problème de déclaration de variable.
Voici en exemple une partie de mon code:

Dim w As Worksheet
Dim Li As Long
private sub listbox1()
...
ElseIf ComboBox1.ListIndex = 4 Then

w = Worksheets('Hydraulique')

End If

Li = LB1.ListIndex + 4
ref.Text = w.Cells(Li, 2).Value
nombre.Text = w.Cells(Li, 3).Value
End Sub




Private Sub CommandButton4_Click()

With w
Li = LB1.ListIndex + 4
.Cells(Li, 2) = ref.Text
.Cells(Li, 3) = nombre.Text
End With

Cliquez pour agrandir...

le problème vient du w=Worksheet('Hydraulique') je pense, mais je ne sais absolument pas coment le résoudre.
NB: toutes les feuilles appartiennent au meme classeur.
Pourriez vous m'aider, d'avnace merci.
@ +
toutou