[COLOR="DarkSlateGray"][B]Function compteMot6(txt As String, mot As String) As Integer
Application.Volatile
Dim i As Long, j As Long, s As Integer, prfx, sufx
prfx = Array(" ", Chr(160), "-", "(", ")", "[", "]", "{", "}", ",", ";", ".", """", Chr(147), Chr(171), Chr(133), ":", "/", "\", "!", "+", "_", "*", vbLf, vbCr)
sufx = Array(" ", Chr(160), "-", "(", ")", "[", "]", "{", "}", ",", ";", ".", """", Chr(148), Chr(187), Chr(133), ":", "/", "\", "!", "+", "_", "*", vbLf, vbCr, "s ", "s" & Chr(160))
txt = " " & txt & " "
For i = 0 To UBound(prfx)
For j = 0 To UBound(sufx)
s = s + UBound(Split(txt, delimiter:=prfx(i) & mot & sufx(j), compare:=vbTextCompare))
Next j
Next i
compteMot6 = s
End Function[/B][/COLOR]