Sub LesDates()
Application.ScreenUpdating = False
Dim nbListe As Integer, j As Integer
Dim nom
Dim numSerie As Long, i As Long, PremLigne As Long, Mem&
Dim J1 As Date
Dim nbJours As Integer, compteur As Integer
Dim c As Range
Dim jFerie As Boolean
Dim a
If MsgBox("Avez-vous vérifié la liste des employés ?", vbYesNo, "Demande de confirmation") = vbYes Then
' On met les noms dans un tableau
nom = Worksheets("Employés").Range("Personnel")
nbListe = UBound(nom)
a = InputBox("Saisir le LUNDI de la semaine à afficher" _
& vbCr & "Sous la forme 02/03 (pour le 2 mars " & Year(Date) & ")", "SAISIR DATE")
If a = "" Then End
'Hdeb = Timer
a = CDate(a & "/" & Year(Date))
If Weekday(a) <> 2 Then
MsgBox ("Le " & a & " est un " & UCase(Format(a, "dddd"))) & vbCr & "Recommencez !"
End
End If
' On remplit la colonne A sans les WE et jours fériés
PremLigne = Range("A65536").End(xlUp).Row + 1
Mem = PremLigne
For i = 0 To 4
Set c = [Feries].Find(CLng(a + i), LookIn:=xlValues)
If Not c Is Nothing Then jFerie = True
Set c = Nothing
If jFerie = False Then
For j = 1 To nbListe
Cells(PremLigne, 1) = a + i
Cells(PremLigne, 2) = nom(j, 1)
PremLigne = PremLigne + 1
Next j
End If
jFerie = False
Next i
Else
Feuil4.Select
End If
Call Bordures(Mem)
'MsgBox Timer - Hdeb
End Sub