Réinitialisation code procédure

Private Sub Workbook_Open()
call LaProcédureDinitialisationDeMonUserform
End Sub

Private Sub txt_Change()
 'rien
 End Sub

Dim txt(3 To 368) As New Classe1, i As Long
Sub UserForm_Initialize()
For i = 3 To 368: Set txt(i).txt = Controls("Textbox" & i): Next i
Label1.Caption = "mode : Recherche"
initialisecombo
End Sub
Private Sub ComboBox1_Click()
CommandButton3.Visible = True
Label1.Caption = "mode : Modification"
With ComboBox1
For i = 1 To 221
Controls("TextBox" & i) = Sheets("feuil2").Cells(.List(.ListIndex, 1), i)
Next i
For i = 222 To 442
Controls("TextBox" & i) = Sheets("feuil2").Cells(.List(.ListIndex, 1), i)
Next i
End With
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
With ComboBox1
For i = 1 To 369
     Sheets("feuil2").Cells(.List(.ListIndex, 1), i) = Controls("TextBox" & i)
     Controls("TextBox" & i) = ""
Next i
    .ListIndex = -1
End With
CommandButton3.Visible = False
CommandButton2.Visible = False
End Sub
Public Sub initialisecombo()
Dim i As Variant
With ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "50;0"
End With
With Sheets("feuil2")
    For i = 2 To .Range("a65536").End(xlUp).Row
        ComboBox1.AddItem
        ComboBox1.List(ComboBox1.ListCount - 1, 0) = .Cells(i, 1) & " " & .Cells(i, 2)
        ComboBox1.List(ComboBox1.ListCount - 1, 1) = i
    Next i
End With
End Sub

Public WithEvents txt As MSForms.TextBox
 Private Sub txt_Change()
 txt = UCase(txt)
 With txt
     If .Value = "M" Then .BackColor = &HFF00&
     If .Value = "S" Then .BackColor = &HFFFF&
     If .Value = "GS" Then .BackColor = &HFFFF00
     If .Value = "J" Then .BackColor = &H80FF&
     If .Value = "RP" Then .BackColor = &HFF&
     If .Value = "RU" Then .BackColor = &HFF&
     If .Value = "VT" Then .BackColor = &H8080FF
     If .Value = "C" Then .BackColor = &HFFFFFF
     If .Value = "MA" Then .BackColor = &H808080
     If .Value = "GR" Then .BackColor = &H404080
     If .Value = "VM" Then .BackColor = &HFFC0C0
     If .Value = "FO" Then .BackColor = &H800080
     If .Value = "F" Then .BackColor = &HFF00FF
     If .Value = "D" Then .BackColor = &HC0C0C0
 End With
 End Sub