=ESTNUM($A$1)=FAUX
Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <= 3 Then
Range("a4:b13").Interior.ColorIndex = xlNone
If Application.WorksheetFunction.CountA(Range("a4:b13")) = 0 Then _
Range("a3").Interior.ColorIndex = 43 Else Range("a3").Interior.ColorIndex = 3
End If
End Sub
Merci mais malheureusement je n'y connais rien au VBA
=(NBVAL($A$4:$B$13)-NB($A$4:$B$13))>0
=SIERREUR(EQUIV("zz";$A$4:$A$13;1);EQUIV("zz";$B$4:$B$13;1))
=(NBVAL($A$4:$B$13)-NB($A$4:$B$13))