Private Sub CheckBox1_Click()
If CheckBox1 Then
Select Case MsgBox("Restaurant administratif ?", vbYesNoCancel, "TYPE DE RESTO")
Case vbYes: Range("I15") = Range("C56").Value
Case vbNo: Range("I15") = Range("C57").Value
Case vbCancel: CheckBox1.Value = False
End Select
Else
Range("I15").ClearContents
End If
End Sub