Dim u As calendarX3
Public mesplages
Private Sub Workbook_Open()
Set p1 = Feuil1.Range("A1:A30,C1:C30,E1:F30")
Set p2 = Feuil2.Range("B1:C30,E1:E30,G1:G30")
Set p3 = Feuil3.Range("B4,B11,D7,F4,F10,F17")
mesplages = Array(p1, p2, p3)
Set u = New calendarX3
End Sub