Function NbSiMZ(champrech As Range, valCherchée)
Application.Volatile
temp = 0
For i = 1 To champrech.Areas.Count
For j = 1 To champrech.Areas(i).Count
If valCherchée = champrech.Areas(i)(j) Then
temp = temp + 1
End If
Next j
Next i
NbSiMZ = temp
End Function
Sub essai()
For Each c In [champ2]
If NbSiMZ([champ2], c.Value) > 1 And c.Value <> "" Then
c.Interior.ColorIndex = 1
c.Font.ColorIndex = 2
End If
Next c
End Sub