.../...
'Ceci est à revoir, il faut parcourir tous les intervalles
With Sheets("VacancesScolaires")
DateFrom = .Range("A3") 'début des vacances
DateTo = .Range("B3") ' fin des vacances
End With
'La variable tableau contient les 7 dates de la feuille nouvellement créée
tableau = Sheets(Sheets.Count).Range("A4:A10")
For t = 1 To UBound(tableau)
' Si les dates contenues ds la variable Tableau sont comprises dans l'intervalle [DateFrom - DateTo]
If tableau(t, 1) >= DateFrom And tableau(t, 1) <= DateTo Then
'je colorie la plage de dates concernées dans la feuille nouvellement créée
Sheets(Sheets.Count).Range("A" & t + 3).Interior.ColorIndex = 43
End If
Next t
.../...