Juste une petite correction à :
Case 15
Calendar.Cbmonth.List = Split("janeiro, fevereiro, março, abril, correio, junho, julho, agosto, setembro, outubro, novembro, dezembro", ",")
Listdays = Split("seg,ter,qua,quin,sex,sáb,dom,,Sem", ",")
là où se trouve "correio", il...