Bonjour à tous,
Une variante par macro...à tester...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim delig%, dercol%
derlig = Me.UsedRange.Rows.Count
dercol = Me.UsedRange.Columns.Count
If Not Application.Intersect(Target, Range(Cells(7, 13), Cells(derlig, dercol))) Is Nothing Then
If Target.Count > 1 Then Exit Sub
cancel = True
If Target.Column Mod 2 = 0 Then
If IsNumeric(Target) And Target.Value > 0 Then
Target.Offset(0, -1).Resize(1, 2).Interior.Color = RGB(0, 255, 0)
Else
Target.Offset(0, -1).Resize(1, 2).Interior.Color = xlNone
End If
End If
End If
End Sub
Cordialement,