Bonjour,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim d%, e%, i%
If Target.Row < 5 Then Exit Sub
If Target.Column = 3 Or Target.Column = 4 Then
i = Target.Row
If Me.Cells(i, 3) <> "" And Me.Cells(i, 4) <> "" Then
If IsNumeric(Me.Cells(i, 3)) Then d = Me.Cells(i, 3)
If IsNumeric(Me.Cells(i, 4)) Then e = Me.Cells(i, 4)
If d > 0 And e > 0 Then
Me.Cells(i, 4).Offset(, d).Resize(, e).Interior.Color = vbYellow
Exit Sub
End If
End If
Me.Rows(i).Interior.ColorIndex = xlColorIndexNone
End If
End Sub
A placer dans le module de la feuille.
Cordialement.