Message d'erreur 424

Bonjour à tous,

Il se trouve que j'ai un code qui est sensé, lorsque je clique sur le bouton en question, m'ouvrir un userform.

Ce code est le suivant:

Private Sub CmdMenuVente_Click()
Unload USFmenu
UsfVente.Show
End Sub

et le code du userform devant s'ouvrir (UsfVente) est quant à lui le suivant:

Private Sub CmdVenteQuit_Click()

Unload UsfVente
USFmenu.Show

End Sub


Private Sub UserForm_Initialize()

CmbVenteArticle.RowSource = ("Données!Article")
CmbKdoArticle.ListIndex = -1

CmbVenteQtte.RowSource = ("Données!Qtte")
CmbVenteQtte.ListIndex = -1

CmbVenteTaille.RowSource = ("Données!Taille")
CmbVenteTaille.ListIndex = -1

End Sub

Private Sub CmdVenteOK_Click()

num = Sheets("ladystock").Range("A65536").End(xlUp).Row + 1

Sheets("ladystock").Activate
Range("A" & num).Value = CmbVenteArticle.Value
Range("C" & num).Value = CmbVenteTaille.Value
Range("E" & num).Value = CmbVenteQtte.Value
Range("H" & num).Value = TxtVenteDate.Value

Unload UsfVente
UsfVenteBis.Show

End Sub

Le problème c'est que quand je fais un essai et que je clique sur le bouton j'ai un mesage d'erreur 424 qui me dit "Objet requis" et me surligne la ligne UsfVente.Show

Que dois-je faire ?
Si qq'un a une idée elle est la bienvenue.

Merci d'avance

GSh