Aide pour code VBA

'Private Sub Userform_initialized()
Private Sub UserForm_Initialize()
Set Ws = Sheets("Inventaire salle info GS")
   ComboBox1.List = Ws.Range("A2:A" & Ws.Range("A" & Rows.Count).End(xlUp).Row).Value
   'Pour la liste déroulante Civilité
   ComboBox2.List = Array("", "M.", "Mme", "Mlle")
End Sub

Option Explicit
Dim Ws As Worksheet
'----------------------------------
'Pour le formulaire
Private Sub Userform_initialize()
Dim LIg As Byte
    Set Ws = Sheets("Inventaire salle info GS")
    With Me.ComboBox1
        For LIg = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
            .AddItem Ws.Range("A" & LIg)
        Next
    End With
End Sub
'---------------------------------------------------
Private Sub ComboBox1_Change()
Dim Ligne As Byte, Col As Byte
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    With Ws
        Ligne = .Columns("A").Find(ComboBox1, .Range("A1"), xlValues).Row
        ComboBox2 = .Cells(Ligne, "B")
        For Col = 1 To 17
            Me.Controls("TextBox" & Col) = .Cells(Ligne, Col + 2)
        Next
    End With
End Sub