Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Vérifie que le double clique se fait bien dans la zone qui nous intéresse
If Intersect(Range("AG6:AL725"), Target) Is Nothing Then Exit Sub
' Si oui, récupère la coordonnée de la cellule
With Range(Target, Target.Offset(0, 6)).Interior
.ColorIndex = Switch(.ColorIndex = xlNone, 4, _
.ColorIndex = 4, 3, _
.ColorIndex = 3, 6)
End With
Cancel = True
End Sub