Grouper 2 Macro voir plus

Dim test As Boolean 'déclare la variable test
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
'si la variable test est vrai, sort de la procédure. Sinon à chaque changement
'(cleracontente, etc...) la procédure est relancée
If test = True Then Exit Sub
test = True 'définit la variable test
 
If Target.Address(0, 0) = "L34" Then
 
    Select Case Range("L34").Value
 
    Case 0
        Range("C1.C5").ClearContents
        Range("D1.D5") = 0
        Range("D6") = 5
 
    Case 1
        Range("C2.C5").ClearContents
        Range("D2.D5") = 11
        Range("D6") = 1
 
    End Select
 
ElseIf Target.Address(0, 0) = "L35" Then
 
    Select Case Range("L35").Value
 
    Case 0
        Range("C[COLOR=red]6[/COLOR].C10").ClearContents
        Range("D[COLOR=red]6[/COLOR].D10") = 0
        Range("D11") = 5
 
    Case 1
        Range("C[COLOR=red]7[/COLOR].C10").ClearContents
        Range("D[COLOR=red]7[/COLOR].D10") = 11
        Range("D11") = 1
 
    End Select
 
End If
 
test = False 'redéfinit la variable test
 
End Sub