Private Sub CommandButton2_Click()
Dim i As Byte
For i = 1 To 3
If Controls('OptionButton' & i) = True Then
Exit For
End If
Next
Select Case i
Case 1: Sheets('résultat').Select
Case 2: Sheets('bilan').Select
Case 3: Sheets('dette').Select
Case 4: MsgBox 'aucun OptionButton sélectionné', vbCritical, 'ALerte Rouge LOL !!!'
End Select
End Sub