Private Sub UserForm_Initialize()
Dim F, i, G, Temp
Dim C As Range
Dim MaListe, DerLigne
MultiPage1.Value = 3
TblChoix = Array("Tous costumes", "Costumes disponibles", "Costumes prêtés", "Costumes indisponibles")
CbInventaire.List = TblChoix
CbInventaire = "Tous costumes"
AlimenteListInventaire
MultiPage1.Value = 0
End Sub