=SOMMEPROD((ESTNUM(CHERCHE("Bouchon";A4:A210)))*1)
=ESTNUM(CHERCHE("*bouchon*";A2))
Private Sub CommandButton1_Click()
Dim F As Worksheet
Dim cpt As Integer
Set F = Sheets("Feuil1")
cpt = Application.WorksheetFunction.CountIf(Columns(1), "*BOUCHON*")
Label1.Caption = ("BOUCHON") & " " & cpt & " fois trouvé(s)"
End Sub
=NB.SI(A2:A210;"*bouchon*")
=NB(CHERCHE("bouchon";A2:A210))