Case 1, 2
Calendar.Cbmonth.List = Split("Janv., Févr., Mars, Avr, Mai, Juin., Juil., Août, Sept., Oct., Nov., Déc.", ",")
Listdays = Split("Lun,Mar,Mer,Jeu,Ven,Sam,Dim,Sem", ",")
Case 0
Calendar.Cbmonth.List = Split("January, Febr., March, April, May, June, July, August, Sept., Oct., Nov., Dec.", ",")
Listdays = Split("Sun,Mon,Tue,Wen,Thur,Fri,Sat,Week", ",")
End Select