Private Sub UserForm_Initialize()
Dim Onglet As Worksheet
Label27.Caption = "Mode : Création"
'Initialise Liste 2 >>>>>>>>>>> Chage la liste2 avec le tableau contenant les valeurs F et M
ComboBox2.List = Array("F", "M")
ComboBox2.ListIndex = -1 '>>>>>>>>>>>>>Positionne à sans choix l'indexe de liste2
'Initialise Liste 3
For Each Onglet In ThisWorkbook.Worksheets'>>>>>> Parcours l'ensemble des onglets du classeur
If InStr(1, Onglet.Name, "Groupe") > 0 Then '>>>>>>>>>> Si le nom de l'onglet contient Groupe
ComboBox3.AddItem Onglet.Name '>>>>>>>>>>>> ajoute à la liste 3
End If
Next Onglet
ComboBox3.ListIndex = -1 '>>>>>>Positionne à sans choix la liste 3
InitialiseCombo1 ' >>>>>> va dans la partie init liste1
End Sub