c bon j'ai réussi a modifiant un peu le code en mettant cela
Public Function IsWeekend(wDate As Date) As Integer
Dim d As Date
Dim n As Long
n = 0
If WeekDay(wDate) = 7 Or WeekDay(wDate) = 7 Then IsWeekend = 1
If WeekDay(d) = vbSaturday Then
n = n - 0
ElseIf WeekDay(d) = vbSunday Then
n = n - 0
Else
IsWeekend = n
End If
End Function
et en modifiant une ligne un peu plus bas
Public Function NDJOUR(D1 As Date) As String
NDJOUR = Choose(WeekDay(D1), "L", "M", "M", "J", "V", "S", "D")
End Function