Sub jour_semaine()
Dim ligne As Integer, ligne_nom As Integer
On Error Resume Next
Call f_precedente
Range("c5:c40").ClearContents
ligne_nom = Range("K1")
For ligne = 5 To 35
If Cells(ligne, 2) <> "" Then
If Weekday(Cells(ligne, 2), 2) = 3 And ligne_nom = 1 Then ligne_nom = 2
If Weekday(Cells(ligne, 2), 2) = 4 And ligne_nom = 2 Then ligne_nom = 3
If Weekday(Cells(ligne, 2), 2) <= 5 And Application.CountIf([Feries], Cells(ligne, 2)) = 0 Then
Cells(ligne, 3) = Sheets("NOM").Cells(ligne_nom, 1)
ligne_nom = ligne_nom + 1
If ligne_nom = 9 Then ligne_nom = 1
End If
End If
Next ligne
End Sub