Incompatibilité VBA mac et Pc

bonjour a tous

j'ai récupéré un module qui fonctionne sous PC et malheureusement il ne fonctionne pas sous MAC

je vous en donne copie

si vous trouvez une solution,je suis preneur

merci

Option Explicit
Function Rechercher(Nom As Range) As String
 Application.Volatile
 Dim WsS As Worksheet
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Integer
Dim Valeur As String
    Set WsS = Worksheets("Patch DMX")
    With Worksheets("Patch Multi")
        If Not IsEmpty(Nom) Then
            Tablo = Split(Nom, "/")
            For i = 0 To UBound(Tablo)
                Set C = WsS.Columns(1).Find(Tablo(i), , xlValues, xlWhole)
                If Not C Is Nothing Then
                    Valeur = Valeur & C.Offset(0, 1) & "/"
                End If
            Next i
            Rechercher = Left(Valeur, Len(Valeur) - 1)
            Valeur = ""
        End If
    End With
End Function

Bonjour,

Peux-tu regarder si la fonction Split est reconnue par le Mac?

Il est possible que cette fonction ne soit pas disponible.

Cdlt.