XL 2010 Code VBA

Private Sub ComboBox5_Change()
TextBox14 = CDate(TextBox13) + Val(ComboBox5)
End Sub

Private Sub UserForm_Initialize()
Dim Plage As Range
  With Worksheets("Bdd")
    Set Nom1 = .Range("A2")
    Set Plage = .Range(Nom1, .Range("A65536").End(xlUp))
    Set Tableau = Plage.Resize(, 2)
  End With
  CbxNom.List = Plage.Value   'Liste nom clients
  '=============================================
ComboBox5.List = Worksheets("Données").Range("B2:B12").Value  'code clients
'=====================================
ComboBox4.List = Worksheets("Données").Range("D2:D7").Value  ' mode réglement
'=======================================================
ComboBox3.AddItem "Devis"
ComboBox3.AddItem "Facture"
'TextBox13.Value = Format(Date, "dd mmmm yyyy")
TextBox13.Value = DateValue(Now)
 
End Sub

Private Sub TextBox13_AfterUpdate()

'TextBox13 = TextBox14 + ComboBox5

X = CDate(TextBox13) + 15
While (Weekday(X) = 1 Or Weekday(X) = 7)
 X = X + ComboBox5
Wend
TextBox14 = Format(X, "dd/mm/yyyy")
End Sub

Private Sub ComboBox5_Change()
TextBox13 = CDate(TextBox14) + Val(ComboBox5)
End Sub

Private Sub ComboBox5_Change()
TextBox13 = DateAdd('d',15, TextBox14)
End Sub