Combobox y textbox a mostrar

Hola,

Aquí está el código y en comentarios mis problemáticas. Si alguien puede ayudarme. Gracias

Private Sub ComboBox1_Change()
Dim Lg As Long
'verifica si, según el combobox1 existe, si es así se añade un valor de la columna "B" en el textbox1
    With Sheets("feuil3")
        Lg = ComboBox1.ListIndex + 1
        TextBox1.Value = Cells(Lg, 1).Value
    End With
    
    If TextBox1.Value > Date - 365 Then 'si la fecha del textbox1 es mayor que la fecha de hoy - 365 días (el valor debe ser mayor 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 no hay nada, se añade el valor del combobox1 así como la fecha del día
    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 el valor del combobox1 ya existe
    Cherche = ComboBox1.Value 'busca el nombre
    If Cherche = "" Then 'si Cherche (valor del combobox1) no existe
        'agregar valor del combobox1 en A y fecha del día en B
    Else 'si el valor del combobox1 ya existe se escribe la fecha del día 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