Macro Pour Compter des fichiers PDF

Sub test()
Dim FileSystemObject As Object, f As Object
Dim Compteur As Long
Dim Chemin As String

Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Chemin = "C:\Appli_Excel"

For Each f In FileSystemObject.GetFolder(Chemin).Files
    If InStr(1, f.Name, ".pdf") > 0 Then Compteur = Compteur + 1
Next f
MsgBox "Nombre total de fichiers : " & Compteur
End Sub

if f.Name like "*.pdf" then

Sub test()
Dim FileSystemObject As Object, SsRep As Object, F As Object
Dim Compteur As Long
Dim Chemin As String, Extension as string

Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
Chemin = "\\FREEBOX\Disque dur\A_Moi" ' "C:\Appli_Excel"
Extension = ".pdf"
For Each SsRep In FileSystemObject.GetFolder(Chemin).SubFolders
    For Each F In SsRep.Files
     If InStr(1, F.Name, extension) > 0 Then Compteur = Compteur + 1
    Next F
Next SsRep
MsgBox "Nombre total de fichiers " & extension & " : " & Compteur
End Sub

#If Win64 Then
    Private Declare PtrSafe Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
    Private Declare PtrSafe Function FindFirstFile Lib "kernel32" _
            Alias "FindFirstFileA" _
            (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
    Private Declare PtrSafe Function FindNextFile Lib "kernel32" _
            Alias "FindNextFileA" _
            (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
    Private Declare PtrSafe Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As LongPtr) As Long
    Private Declare PtrSafe Function PathMatchSpec Lib "shlwapi" _
            Alias "PathMatchSpecW" _
            (ByVal pszFileParam As LongPtr, ByVal pszSpec As LongPtr) As LongPtr
#Else
    Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
    Private Declare Function FindFirstFile Lib "kernel32" _
            Alias "FindFirstFileA" _
            (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
    Private Declare Function FindNextFile Lib "kernel32" _
            Alias "FindNextFileA" _
            (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
    Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenW" (ByVal lpString As Long) As Long
    Private Declare Function PathMatchSpec Lib "shlwapi" _
            Alias "PathMatchSpecW" _
            (ByVal pszFileParam As Long, ByVal pszSpec As Long) As Long
#End If

(Get-ChildItem C:\Temp -filter "*.pdf").count