Message box si occurrence d'une case > 40 Excel

Bonjour

msgbox > macro, c'est bien ce que tu veux ?

Si oui, comment veux tu déclencher la recherche des moules ayant dépassé 40 utilisations ?

Si non une MFC (mise en forme conditionnelle) pourrait suffire

Cdlmnt

1. Que veux tu dire par là ? Comment sont entrés ces n° de moules en colonne B ?

Dans la colonne B:B, j'ai des numéros de moules qui se déclarent à chaque fois que ceux-ci sont flashées

2. Si ces n° sont entrés "à la main" une solution

Option Explicit

Const conum = "B"
Const conbr = "D"
Const lideb = 2

Const alerte = 5

Private Sub Worksheet_Change(ByVal Target As Range)
Dim plage As Range, li As Long, n As Long, nbocc As Long
If Target.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Columns(conum)) Is Nothing Then
  li = Target.Row
  n = Target.Value
  Set plage = Range(conum & lideb & ":" & conum & li)
  nbocc = Application.WorksheetFunction.CountIf(plage, n)
  Range(conbr & li).Value = nbocc
  If nbocc >= alerte Then MsgBox "alerte moule n° " & n
End If
End Sub

Cdlmnt