Combobox et textbox à afficher

Bonjour,

Voici le code et en commentaire mes problématiques. Si quelqu'un peut m'aider. Merci

Private Sub ComboBox1_Change()
Dim Lg As Long
'vérifie si, selon le combobox1 existe, si oui on ajoute la une valeur de la colone "B" dans le textbox1
    With Sheets("feuil3")
        Lg = ComboBox1.ListIndex + 1
        TextBox1.Value = Cells(Lg, 1).Value
    End With
    
    If TextBox1.Value > Date - 365 Then 'si la date du textbox1 est plus grande que la date du jour - 365 jour (la valeur doit être plus grande que 365)
        CommandButton2.Enabled = False
    End If
    
End Sub

Private Sub CommandButton1_Click()
Dim Cherche As String

    If ComboBox1 = "" Then
        MsgBox "Vous devez sélectionner un nom ?", vbOK, "Nom de la personne"
        Exit Sub
    End If
            
    Sheets("Feuil3").Select

If Range("a2") = "" Then ' si en A2 il n'y a rien, on ajoute la valeur du combobox1 ainsi que la date du jour
    Range("a65536").End(xlUp).Offset(1, 0).Select
    ActiveCell = ComboBox1.Value
    ActiveCell.Offset(0, 1) = Me.TextBox1.Value = Format(Now, "yyyy-mm-dd")
Else 'si la valeur du combobox1 existe déjà
    Cherche = ComboBox1.Value 'cherche le nom
    If Cherche = "" Then 'si cherche (valeur du combobx1) n'existe de pas
        'ajouter valeur combobox1 en A et date du jour en B
    Else 'si la valeur du combobox1 existe déjà on écrit la date du jour en B
        L = Sheets("Formulaire").Cells.Find(What:=Cherche, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlNext).Row
        Cells(L, "B") = Me.TextBox1.Value = Format(Now, "yyyy-mm-dd")
    End If
End If
        
    ComboBox1 = ""
    TextBox1 = ""
    Unload Me
      
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
  Set f = Sheets("feuil4")
  Set MonDico = CreateObject("Scripting.Dictionary")
  a = f.Range("A2:A" & f.[A65000].End(xlUp).Row)
  For i = LBound(a) To UBound(a)
    If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
  Next i
  Me.ComboBox1.List = MonDico.keys

    With Me.ComboBox1
           .ListIndex = -1
    End With
End Sub