Bonjour
Votre frame contient surtout des boutons d'options qui apparaissent bien cochés lorsqu''ils ont leur propriété Value à True.
Ne pas tester OptionButton1.Value = True, c'est idiot, sa propriété Value est déjà une expression booléenne, elle suffit à elle seule à gauche du Then.
À+
Function GetTaille() As String
Dim ctl As Control
For Each ctl In taille.Controls
If TypeOf ctl Is MSForms.OptionButton Then
If ctl Then
GetTaille = ctl.Caption
Exit For
End If
End If
Next
End Function
Code:
Private Sub b_validation_Click()
Dim sTaille As String: sTaille = GetTaille()
'.....
ActiveCell.Offset(0, 4).Value = Application.Proper(GetTaille())
End Sub