Private Sub CommandButton1_Click()
'lien du code https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/
Dim Frm As MSForms.Control, OBn As MSForms.Control, T() As String, N&
Dim Vr As Byte, Fx As Byte
For Each Frm In Me.Controls
If TypeOf Frm Is MSForms.Frame Then
N = N + 1: ReDim Preserve T(1 To N)
For Each OBn In Frm.Controls
If TypeOf OBn Is MSForms.OptionButton Then If OBn.Value Then T(N) = Frm.Name & ": " & OBn.Caption: Exit For
Next OBn: End If: Next Frm
MsgBox Join(T, "," & vbLf) & "."
End Sub