XL 2010 aide moi de mettre cette formule dans ce formulaire

Private Sub UserForm_Initialize()
    '**' Dans cette procédure nous allons ajouter les clés du dictionnaire comme source pour la combobox.
    Me.cboSpeca.List = dicoSpecialite.Keys
   
    With Worksheets("Liste")
   
        TextBox2.Text = Format(Application.EDate(.Range("O1"), Application.VLookup(.Range("D2"), .Range("$I$3:$J$7"), 2, False)) - 1, "dd/mm/yyyy")
       
    End With

End Sub

Private Sub TextBox1_Change()
If TextBox1 = "" Then TextBox2 = "": Exit Sub
If Len(TextBox1) = 10 And IsDate(TextBox1) Then
TextBox2 = CDate(Application.EDate([Liste!O1], Application.VLookup([D2], [Liste!$I$3:$J$7], 2, False)) - 1)
End If
End Sub