Créer un jeu pour l'été

Sub Macro1()
' Macro1 Macro
' Macro enregistrée le 30/07/2011 par EXCEL
Range("B1,G1,J2,C3,D3,D4,I4,J4,H7,D9,J9,B10,D10,J10") = "0"
Range("B4,H3,C6,I6,C8,H8") = "1"
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Byte
i = Range("R3").Value
If Not Intersect(Target, Range("A1").Resize(i, i)) Is Nothing Then Target.Value = 1
Cancel = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Byte
i = Range("R3").Value
If Not Intersect(Target, Range("A1").Resize(i, i)) Is Nothing Then Target.Value = 0
Cancel = True
End Sub

'En modifiant le premier code de Victor21 pour avoir un effacement
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim i As Byte
 i = Range("R3").Value
 If Not Intersect(Target, Range("A1").Resize(i, i)) Is Nothing Then Target.Value = ""
 Cancel = True
 End Sub
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Dim i As Byte
 i = Range("R3").Value
 If Not Intersect(Target, Range("A1").Resize(i, i)) Is Nothing Then Target.Value = 0
 Cancel = True
 End Sub
 
'Suivant une macro de Pierrot93
 Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 With Target
     If .Count > 1 Then Exit Sub
     .Value = IIf(.Value = 1, "", 1)
 End With
 End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim i As Byte
 i = Range("R3").Value
 If Not Intersect(Target, Range("A1").Resize(i, i)) Is Nothing Then Target.Value = ""
 Cancel = True
 End Sub
 
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 With Target
     If .Count > 1 Then Exit Sub
     Cancel = True
     .Value = IIf(.Value = 1, 0, 1): Exit Sub
 End With
End Sub