Private Sub Valider_click()
Cancel As Integer
Dim x As Object, UneOptionAuMoins As Boolean
UneOptionAuMoins = False
For Each x In Frame1.Controls
UneOptionAuMoins = UneOptionAuMoins Or x.Value
Next x
If Not UneOptionAuMoins Then
MsgBox "aucune des 2 options n'est cochée !"
Cancel = True
End If
'End Sub