je ne peux bien sûr pas envoyer le tableau, trop de noms et d'entité à modifier
Dans la vraie vie , je lis beaucoup, mais ici ce n'est pas le cas !dans la vraie vie c'est bien de A3:H72!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E4")) Is Nothing Then
If [E4] = "" Then Exit Sub
compteur = 0
For Each cellule In Range("A2:B5")
If cellule Like ("*" & [E4] & "*") Then
compteur = compteur + 1
End If
Next cellule
MsgBox ("trouvé " & compteur)
End If
End Sub