Formulaire de saisie avec calcul de date

Private Sub boxnom_AfterUpdate()
If boxnom.ListIndex > -1 Then Exit Sub
If MsgBox("Ajouter ce Nom à la liste des employés?", 4) = 7 Then boxnom = "": Exit Sub
[EMPLOYES].Cells(Application.CountA([EMPLOYES]) + 1) = boxnom
boxnom.List = [EMPLOYES].cells(3).Resize(Application.CountA([EMPLOYES]) - 1, 2).Value
End Sub

Private Sub boxfonction_AfterUpdate()
If boxfonction.ListIndex > -1 Then Exit Sub
If MsgBox("Modifier la fonction de cet employé ?", 4) = 7 Then boxfonction = "": Exit Sub
[FONCTION].Cells(Application.CountA([FONCTION]) + 1) = boxfonction
boxfonction.List = [FONCTION].cells(3).Resize(Application.CountA([FONCTION]) - 1, 2).Value
End Sub

Private Sub boxcontact_AfterUpdate()
If boxcontact.ListIndex > -1 Then Exit Sub
If MsgBox("Attribuer ce contact à cet employé ?", 4) = 7 Then boxcontact = "": Exit Sub
[CONTACTS].Cells(Application.CountA([CONTACTS]) + 1) = boxcontact
boxcontact.List = [CONTACTS].cells(3).Resize(Application.CountA([CONTACTS]) - 1, 2).Value
End Sub

Private Sub enregistrer_Click()
'PROBLEME BEUG AVEC CE CODE
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If boxnom = "" Then boxnom.SetFocus: boxnom.DropDown: Exit Sub
If boxfonction = "" Then boxfonction.SetFocus: boxfonction.DropDown: Exit Sub
If boxcontact = "" Then boxcontact.SetFocus: boxcontact.DropDown: Exit Sub
If boxlieu = "" Then boxlieu.SetFocus: boxlieu.DropDown: Exit Sub
If Not IsDate(boxdepart) Then boxdepart.SetFocus: boxdepart = "": Exit Sub
If Not IsDate(boxdretour) Then boxdretour.SetFocus: boxdretour = "": Exit Sub
If boxtransport = "" Then boxtransport.SetFocus: boxtransport.DropDown: Exit Sub
Dim deb As Date, fin As Date, Samedi As Boolean, dimanche As Boolean, lig&, dat, n&
deb = Application.Min(CDate(boxdepart), CDate(boxdretour))
fin = Application.Max(CDate(boxdepart), CDate(boxdretour))
TextBox1 = deb: boxdretour = fin 'en cas d'inversion
Samedi = Samedi: dimanche = dimanche
n = 0: lig = 17
Rows("17:" & Rows.Count).Delete 'RAZ
For dat = deb To fin
    If (Weekday(dat) < 7 Or Samedi) And (Weekday(dat) > 1 Or dimanche) And Application.CountIf([Feries], dat) = 0 Then
        If Cells(lig - 1, "D") = dat - 1 Then
            Cells(lig - 1, "D") = dat
        Else
            n = n + 1
            Cells(lig, "B").Resize(2).Merge
            Cells(lig, "B") = "PERIODE " & n
            Cells(lig, "C") = "DATE DE DEPART"
            Cells(lig + 1, "C") = "DATE DE RETOUR"
            Cells(lig, "D").Resize(2) = dat
            lig = lig + 2
        End If
    End If
Next
If lig = 19 Then
    [C17:C18].Cut [B17]
    [B17:C17].Merge
    [B18:C18].Merge
End If
For n = 1 To 4: Cells(12 + n, "D") = Controls("ComboBox" & n): Next
Cells(lig, "B").Resize(, 2).Merge
Cells(lig, "B") = "TRANSPORT"
Cells(lig, "D") = boxbudget
If lig > 17 Then Range(Cells(17, "D"), Cells(lig - 1, "D")).NumberFormat = "dddd d mmmm yyyy"
Range(Cells(17, "B"), Cells(lig, "D")).Borders.Weight = xlMedium
End Sub
If boxnom = "" Or boxcontact = "" Or boxfonction = "" Or boxlieu = "" Or boxobjet = "" Or boxdepart = "" Or boxretour = "" Or boxtransport = "" Or boxbudget = "" Or boxsignature = "" Then
MsgBox ("Veuillez entrer toutes les informations")
Else
If Sheets(2).Range("A2") = "" Then
   Sheets(2).Range("A2") = om
   Else
   Sheets(2).ListObjects(1).ListRows.Add
   End If
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   'SAUVEGARDE DE LA BASE DE DONNEES SUR LA FEUILLE 2 POUR DES RECHERCHES ULTERIEURES
   dlign = Sheets(2).Range("d1048576").End(xlUp).Row
 
   Sheets(2).Range("A" & dlign) = om
   Sheets(2).Range("B" & dlign) = boxnom
   Sheets(2).Range("C" & dlign) = boxfonction
   Sheets(2).Range("D" & dlign) = boxcontact
   Sheets(2).Range("E" & dlign) = boxlieu
   Sheets(2).Range("F" & dlign) = boxobjet
   Sheets(2).Range("G" & dlign) = boxtransport
   Sheets(2).Range("H" & dlign) = boxdepart
   boxdepart = Format(boxdepart, "dd/mmm/yy")
   Sheets(2).Range("I" & dlign) = boxretour
   boxretour = Format(boxretour, "dd/mmm/yy")
   Sheets(2).Range("J" & dlign) = boxbudget
   Sheets(2).Range("K" & dlign) = boxsignature

 
End If
UserForm_Initialize
Sheets(3).Range("F2").Value = Sheets(3).Range("F2").Value + 1
End Sub