Sub Geste_Action()
Dim a As Long, b As Long, c As Long, d As Long, NL As Long
NL = [Feuil1].Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
With Fiche
ch = ""
For b = 1 To 3
If .Controls("C12_" & b) = True Then ch = ch & .Controls("C12_" & b).Caption & ", "
Next b
Worksheets("BDD").Cells(NL, 1) = Mid(ch, 1, Len(ch) - 2)
End With
End Sub