Private Sub OptionButton1_Click()
'rappel des noms des fenetres
Dim dateCR As String
Windows("Bilans.xls").Activate
bilan = Sheets("param").Cells(1, 2)
feuillebilan = Sheets("param").Cells(4, 2)
Windows(bilan).Activate
Sheets(feuillebilan).Activate
Range("B5").Select
ActiveCell.End(xlDown).Offset(0, -1).Select
dateCR = ActiveCell
CR = "CR du " & Format((dateCR), "dd mmmm yyyy") & ".xls"
Dim Ctrl As Control
For Each Ctrl In valideur.Controls
If Ctrl.Object.Value = True Then
'MsgBox Ctrl.Object.Caption
Windows(CR).Activate
Sheets("CR").Select
Range("E66") = "valideur"
Exit For
End If
Next Ctrl
'_______________________________________
valideur.Hide
ActiveWorkbook.Save
MsgBox ("le compte rendu est créé et enregistré")
Load dialogue_dejaCR
dialogue_dejaCR.Show
End Sub