Private Sub CBValider_Click()
Dim x As String, i&
x = ""
With UserForm1
For i = 1 To 13 'il y a 13 CheckBox sur le Useform1
If .Controls("CB" & i) Then 'si le control CBi est VRAI (= coché)
x = x & " ; " & .Controls("CB" & i).Caption 'alors on ajoute le texte dans la chaine x
End If
Next i
If x <> "" Then x = Right(x, Len(x) - 3) 'si x n'est pas vide (=rien de coché), on enlève le 1er ";"
End With
Select Case Parent.Caller 'selon le bouton "Lancer" qui a été cliqué - on choisit la cellule destination
Case "BTLancer1"
Sheets("Feuil1").Range("E37") = x
Case "BTLancer2"
Sheets("Feuil1").Range("E42") = x
Case "BTLancer3"
Sheets("Feuil1").Range("E47") = x
End Select
End Sub