Bonjour sam_soul
Il faut remplacer dans le code, tout ce qui parle de "weekday"
Du style
If Weekday(CDate(TextBox1.Value) + n) = 7 Or _
Weekday(CDate(TextBox1.Value) + n) = 1 Then
Par plus simple,
If Weekday(CDate(TextBox1.Value) + n, vbMonday) < 7 Then
Inférieur à 7 = Dimanche, le samedi est dons pris en compte
Nota : Fronck à force de recopier des codes, ne connait même pas l'option, semble t'il
A+