XL pour MAC Fonction recherche

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("C8:C10")) Is Nothing Then   ' Palge à ajuster
         Application.ScreenUpdating = False
         tablo = Split(Target, "+")
         Chaine = ""
         For L = LBound(tablo) To UBound(tablo)
            If Application.CountIf(Sheets("Tableau").[A:A], tablo(L)) > 0 Then
                N = Application.Match(tablo(L), Sheets("Tableau").[A:A], 0)
                Chaine = Chaine & "+" & Sheets("Tableau").Cells(N, "B")
            End If
         Next L
    End If
Fin:
Application.EnableEvents = False
Target = Mid(Chaine, 2)
Application.EnableEvents = True
End Sub