Private Sub Worksheet_Change(ByVal Target As Range)
Set zone = Range("C1:J17,C20:J20,K18:L27")
Set isect = Intersect(Target, zone)
If Not isect Is Nothing Then
Call nombre_si
End If
End Sub
Public zone As Range
Sub nombre_si()
For Each cel In zone
For Each cell In Sheets("Feuil3").Range("A2:A" & Sheets("Feuil3").Range("A65536").End(xlUp).Row)
If cel.Value = cell.Value Then
trouve = True
Exit For
End If
Next
If trouve Then
trouve = False
Else
nb = nb + 1
End If
Next
Sheets("Feuil1").Range("K43") = nb
End Sub