Dim Un As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [pla2]) Is Nothing Then Exit Sub
Target.Offset(0, -1).Interior.Color = IIf(Un, vbYellow, vbGreen)
Un = Not Un
Cancel = True
End Sub