Function CompteMot(Plage As Range, Mot As String) As Double
Dim oRegExp As Object, Matches As Object
Set oRegExp = CreateObject("vbscript.regexp")
With oRegExp
.Global = True
.MultiLine = True
For Each c In Plage
.Pattern = Mot
If .test(c) = True Then
Set Matches = .Execute(c)
Nb = Nb + Matches.Count
End If
Next c
End With
CompteMot = Nb
End Function