'du 04/07/2016 + jours20( sans dimanche ) : 26/07/2016
'(premiere semaine : du 04/07/2016 -09/07/2016 => 06 jours
'2eme semaine du 11/07/2016 - 16/07/2016 => 06 jours
'3eme semaine du 18/07/2016 - 23/07/2016 => 06 jours
'4eme semaine du 25/07/2016 - 26/07/2016 => 02 jours)
'donc soit au total 20 jours d'ou la date est 26/07/2016
'+férié : j'ai 27/07/2016
'et+1 par défaut dans la formule : j'ai 28/07/2016
Sub Essai()
'ceci pour simuler tes contrôles
Dim TextBox2$, TextBox3$, TextBox4$, ComboBox2$, D As Date
'les valeurs sensées être dans tes contrôles
TextBox2 = "04/07/2016"
TextBox3 = "20" 'jours
ComboBox2 = "1" 'férié
TextBox4 = CDate(TextBox2) + Val(TextBox3) + Val(ComboBox2)
For D = CDate(TextBox2) To CDate(TextBox4) + 1
If Weekday(D, vbMonday) = 7 Then TextBox4 = CDate(TextBox4) + 1
Next
MsgBox TextBox4
End Sub