Compte de mots dans un fichier Excel

Sub CountWords()
'auteur: [FONT=Arial][SIZE=1][COLOR=#800000]Charles H. Pearson  [/COLOR][/SIZE][/FONT]
    Dim WordCount As Long
    Dim Rng As Range
    Dim S As String
    Dim N As Long
    For Each Rng In ActiveSheet.UsedRange.Cells
        S =          Application.WorksheetFunction.Trim(Rng.Text)
        N = 0
        If S <> vbNullString Then
            N = Len(S) -  Len(Replace(S, " ", "")) + 1
        End If
        WordCount = WordCount + N
    Next Rng
    MsgBox "Words In ActiveSheet Sheet: " & Format(WordCount,"#,##0")
    End Sub

=SOMMEPROD((NBCAR(Feuil1!A1:C5)-NBCAR(SUBSTITUE(Feuil1!A1:C5;" ";"")))*1)

Sub CountWords(feuille As String)
    Dim WordCount As Long
    Dim Rng As Range
    Dim S As String
    Dim N As Long
    For Each Rng In Sheets(feuille).UsedRange.Cells
        S = Application.WorksheetFunction.Trim(Rng.Text)
        N = 0
        If S <> vbNullString Then
            N = Len(S) - Len(Replace(S, " ", "")) + 1
        End If
        WordCount = WordCount + N
    Next Rng
    MsgBox "Nombre de mot(s) dans la feuille :" & Sheets(feuille).Name & Chr(13) & Format(WordCount, "#,##0")
End Sub

Sub compte_mots()
Dim nom_feuille As String
nom_feuille = InputBox("Saisir le nom de la feuille")
CountWords nom_feuille
End Sub

=SOMMEPROD((NBCAR(SUPPRESPACE(Feuil1!A1:C5))-NBCAR(SUBSTITUE(
SUPPRESPACE(Feuil1!A1:C5);" ";""))))+NBVAL(Feuil1!A1:C5)

=SOMMEPROD((NBCAR(SUPPRESPACE(Feuil1!A1:C5))-NBCAR(SUBSTITUE(
SUPPRESPACE(Feuil1!A1:C5);" ";""))))+NBVAL(Feuil1!A1:C5)-SOMMEPROD(((NBCAR(
SUPPRESPACE(Feuil1!A1:C7))+ESTVIDE(Feuil1!A1:C7))=0)*1)