Vba erreur 9

Bonjour,
je suis très novice en vba et voudrait créer un formulaire de saisie automatique des données dans excel pour simplifier le travail de mes prestataires.
je suis pas à pas un Tutorial de création mais suis bloqué par l'apparition d'une erreur code 9


voici les premières lignes de mon code
j'ai 9 champs à remplir: 7 avec des" listes déroulantes", et deux "texte"
avec l'outil débogage tout va bien jusqu'à la ligne "set Ws=Sheets ("sheet1)


Option Explicit
Dim Ws As Worksheet

'Pour le formulaire
Private Sub Userform_Initialize()
Dim J As Long
Dim I As Integer

ComboBox2.ColumnCount = 1 'pour la liste déroulante Center
Set Ws = Sheets("sheet1")
With Me.ComboBox1
For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
For I = 1 To 2
Me.Controls("textbox" & I).Visible = True
Next I
End Sub



Private Sub ComboBox1_Change()
ComboBox1.ColumnCount = 2 'pour la liste déroulante Country Code
ComboBox1.List() = Array("", "33", "39", "49")
End Sub


Private Sub combobox3_change()
ComboBox3.ColumnCount = 3 'pour la liste déroulante Patient
ComboBox3.List() = Array("", "001", "002", "003", "004", "005", "006", "007", "008", "009", "010")
End Sub


Private Sub combobox4_change()
ComboBox4.ColumnCount = 4 'pour la liste des Visites
ComboBox4.List() = Array("", "V-1M-1", "V1M0", "V2M1", "V3M2", "V4M3")
End Sub

Private Sub combobox5_change()
ComboBox5.ColumnCount = 7 'pour la liste des types d'échantillons
ComboBox5.List() = Array("", "Culot_Sec", "PBMC", "Plasma", "Serum")
End Sub

Private Sub combobox6_change()
ComboBox6.ColumnCount = 8 'pour la liste des centres d'envoi
ComboBox6.List() = Array("", "B&C", "Immune_Health")



End Sub

puis vous solliciter pour un peu d'aide?
merci d'avance du temps que vous m'aurez consacré.
Arnaud