Erreur 424

Bonjour,

Ma macro ne fonctionne pas. Savez vous pourquoi ? J'ai une erreur 424.
Je ne suis pas sur de mettre ce qu'il faut pour faire mes combobox dont les listes sont disponibles dans l'onglet "Listes"

Private Sub UserForm_Initialize()
For i = 3 To 15
ComboBox_RV.AddItem Sheets("Listes").Cells(i, 2)
Next
End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()

End Sub

Private Sub ComboBox2_Change()

End Sub

Private Sub ComboBox2_Click()

End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub Image2_Click()

End Sub

Private Sub Image3_Click()

End Sub

Private Sub Label11_Click()

End Sub

Private Sub Label25_Click()

End Sub

Private Sub Label37_Click()

End Sub

Private Sub Label40_Click()

End Sub

Private Sub RV_Change()

End Sub

Private Sub Sous_secteur_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub Valider_Click()
no_ligne = Range("A65536").End(xlUp).Row + 1

Cells(no_ligne, 1) = ComboBox_RV.Value
Cells(no_ligne, 2) = ComboBox_Secteur.Value
Cells(no_ligne, 3) = ComboBox_Sous_secteur.Value
Cells(no_ligne, 4) = TextBox_Opcode.Value
Cells(no_ligne, 6) = TextBox_Nb_ref.Value
Cells(no_ligne, 7) = ComboBox_Pays.Value
Cells(no_ligne, 8) = TextBox_Date_assignation.Value
Cells(no_ligne, 9) = TextBox_Date_assignation2.Value
Cells(no_ligne, 10) = TextBox_Date_vente.Value
Cells(no_ligne, 13) = TextBox_DVAPT.Value
Cells(no_ligne, 14) = TextBox_Nb_modif_DVAPT.Value
Cells(no_ligne, 15) = ComboBox_Raison.Value
Cells(no_ligne, 16) = TextBox_Date_DMAP_placée.Value
Cells(no_ligne, 17) = TextBox_Date_DMAP_TC.Value
Cells(no_ligne, 22) = ComboBox_Macro.Value
Cells(no_ligne, 23) = ComboBox_Photo_cata.Value
Cells(no_ligne, 24) = TextBox_FIDEL.Value
Cells(no_ligne, 25) = TextBox_PREPA.Value
Cells(no_ligne, 26) = TextBox_SHOOT.Value
Cells(no_ligne, 27) = TextBox_RENOMAGE.Value
Cells(no_ligne, 28) = TextBox_RETOUCHE.Value
Cells(no_ligne, 29) = ComboBox_Pb_bufi.Value
Cells(no_ligne, 30) = TextBox_Commentaire_bufi.Value
Cells(no_ligne, 31) = ComboBox_Pb_bufi.Value
Cells(no_ligne, 32) = ComboBox_Com_prix1.Value
Cells(no_ligne, 33) = ComboBox_Com_prix2.Value

OptionButton1.Value = True

ComboBox_RV.ListIndex = -1
ComboBox_Secteur.ListIndex = -1
ComboBox_Sous_secteur.Value
TextBox_Opcode.Value = ""
TextBox_Nb_ref.Value = ""
ComboBox_Pays.ListIndex = -1
TextBox_Date_assignation.Value = ""
TextBox_Date_assignation2.Value = ""
TextBox_Date_vente.Value = ""
TextBox_DVAPT.Value = ""
TextBox_Nb_modif_DVAPT.Value = ""
ComboBox_Raison.ListIndex = -1
TextBox_Date_DMAP_placée.Value = ""
TextBox_Date_DMAP_TC.Value = ""
ComboBox_Macro.ListIndex = -1
ComboBox_Photo_cata.ListIndex = -1
TextBox_FIDEL.Value = ""
TextBox_PREPA.Value = ""
TextBox_SHOOT.Value = ""
TextBox_RENOMAGE.Value = ""
TextBox_RETOUCHE.Value = ""
ComboBox_Pb_bufi.ListIndex = -1
TextBox_Commentaire_bufi.Value = ""
ComboBox_Pb_bufi.Value
ComboBox_Com_prix1.ListIndex = -1
ComboBox_Com_prix2.ListIndex = -1


End Sub