Probleme VBA exel

Bonjour,

Je rencontre un probleme pour compter le nombre de fichier contenu dans un dossier car nous avons besoin du dictionnaire Microsoft Scripting runtime et il n'existe pas sous mac..

Connaissez vous un equivalent ou ce dictionnaire sous mac??

Voici mon code

----------------------------------------------------------------------------
Dim fso As Object
Dim DossierSource As Object
Dim Fichier As Object
Dim r As Long

Set fso = CreateObject("Scripting.FileSystemObject")
Set DossierSource = fso.GetFolder(/Users/***/Desktop/***")

r = 0
For Each Fichier In DossierDource.Files
r = r + 1
Next Fichier

MsgBox "Nb Fichier : " & r

-----------------------------------------------------------------------------

Merci d'avance