Bonjour,
solution basée sur le message mentionné plus haut. (adapté pour le userform1, seulement)
Private Sub CommandButton1_Click()
Dim x As String, i&, n&
x = ""
With UserForm1
For i = 1 To 3
If .Controls("CheckBox" & i) Then
n = n + 1
x = x & " " & .Controls("CheckBox" & i).Caption & Chr(10)
End If
Next i
End With
' l'autofit ne fonctionne pas avec les cellules fusionnées
Range("c3").UnMerge ' on défusionne
Range("C3") = x & TextBox1.Value ' on place le texte en C3
Rows(3).AutoFit ' on fait l'autofit
Range("C3:D3").Merge 'on refusionne les cellules
End Sub