Bonjour
Tu déclare tes dates en nombre...
J'ai fait les modifs pour les vacances de Toussaint
DebutT:
Vac$ = "la TOUSSAINT"
Range("AN19").Select
'Indiquer la saison à traiter
DatTD = InputBox$(prompt:="Date de début (JJ/MM/AAAA) pour " & Vac$ & Chr(10) & Chr(10) & "ou 0 pour abandonner la saisie", _
Title:="Début vacances de " & Vac$)
If Not IsDate(DatTD) Or Not IsDate(DatTD) Then
MsgBox ("Date incorrect")
GoTo DebutT
'erreur GoTo Fin
End If
Range("AN19").Value = DatTD
Range("AN20").Select
DatTF = InputBox$(prompt:="Date de fin (JJ/MM/AAAA) pour " & Vac$ & Chr(10) & Chr(10) & "ou 0 pour abandonner la saisie", _
Title:="Début vacances de " & Vac$)
If Not IsDate(DatTF) Or Not IsDate(DatTF) Then
MsgBox ("Date incorrect")
GoTo DebutT
'erreur GoTo Fin
End If
Range("AN20").Value = DatTF
A+ François