Macro PC ne fonctionne pas sur mac

Bonjour, j'ai réalisé une macro sur pc et j'essaye de la faire fonctionner sur mac, en vain.

Si quelqu'un aurait une idée, sachant que je suis sur novice en macro

Sub ImporterDoc()
Dim repertoire As String, fichier As String, objWord As Object
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set shDest = Worksheets("Feuil1")
repertoire = ThisWorkbook.Path & ":"
fichier = Dir(repertoire & "*.doc*") 'premier fichier doc, docx ligne en couleur
Worksheets("Feuil2").Activate
[A1].Select
Do While fichier <> ""
Columns("A:B").Clear