Extraire ListBox vers une feuille precise du meme classeur

Bonjour, et que la nouvelle année 2017 soit remplie de bonheur à tous.

le bva ci-dessous fonctionne très bien, je souhaiterais la même chose, mais qui me le fasse dans une Feuille spécifique nommée "fiche" qui se trouve dans le même classeur.

Merci.
cordialement.

Cédric.

_____________________________________________________
Private Sub CommandButton2_Click()

Dim WkNouveau As Workbook, ShNouveau As Worksheet
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "extraction"
With ShNouveau
.Cells(1, 1).Resize(ListBox1.ListCount, 29).Value = ListBox1.List
End With

End Sub
_____________________________________________________