Private Sub CommandButton1_Click()
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
Dim L As String 'déclare la variable L (Liste)
For Each CTRL In Me.Controls 'boucle sur tous les contrôlec CTRL de l'UserForm en cours
If TypeOf CTRL Is MSForms.CheckBox Then 'condition : si le contrôle est une ChekBox
'si le contrôle est coché, définit la liste L
If CTRL.Value = True Then L = IIf(L = "", "outil" & Mid(CTRL.Name, 4), L & ", " & "outil" & Mid(CTRL.Name, 4))
End If 'fin de la condition
Next CTRL 'prochain contrôle de la boucle
Worksheets("Visu fiche").Range("E8") = L 'renvoie la liste L dans la celluel E8 de l'onglet "Visu fiche"
End Sub