Planning Congés

[Touna]

Bonjour,
Encore besoin de votre aide précieuse.

Je gère les congés avec un fichier excel, mais je me heure à un petit problème, le voici :

Le premier onglet de mon fichier sert à planifier visuellement les congés, et va du 01/06/2015 au 31/05/2016, il alimente une base (2eme onglet) qui me sert à comptabiliser les jours, mais je n'arrive pas à enregistrer dans cette base le jour du 31/05/2016.

Merci de m'aider, je vous joins le fichier (que j'ai allégé).
Touna


Voici la macro :

Sub lit_planning() ' lit le planning pour créer la base
Application.ScreenUpdating = False
Set s = Sheets("Base")
s.[A3:E100].ClearContents
Set p = Sheets("Plan")
nbCol = 255
ligneBD = 2
For ligne = 4 To 63
i = 2
Do While i <= nbCol
témoin = False
Do While p.Cells(ligne, i) = "" And i <= nbCol
If i = nbCol Then témoin = True
i = i + 1
Loop
If Not témoin Then
If p.Cells(ligne, i).Borders(xlDiagonalUp).LineStyle = xlContinuous Then
demi_jour = "o"
Else
demi_jour = "n"
End If
couleur = p.Cells(ligne, i).Interior.ColorIndex
If couleur = 41 Or couleur = 37 Then typeCongés = "Congés"
If couleur = 46 Or couleur = 45 Then typeCongés = "Anc"
début = p.Cells(2, i)
Do While p.Cells(ligne, i).Interior.ColorIndex = couleur And i <= nbCol
If i = nbCol Then témoin = True
i = i + 1
Loop
fin = p.Cells(2, i - 1)
ligneBD = ligneBD + 1
s.Cells(ligneBD, 1) = p.Cells(ligne, 1)
s.Cells(ligneBD, 2) = début
s.Cells(ligneBD, 3) = fin
s.Cells(ligneBD, 4) = typeCongés
s.Cells(ligneBD, 5) = demi_jour
End If
Loop
Next ligne

End Sub