Traduction de Windows à Mac

Bonjour à tous,

j'aurais besoin d'un coup de main. Je dois traduire quelques ligne de code pour qu'un fichier créé sous excel windows puisse être utilisé sous mac. je joint un fichier très succinct car les données sont professionnelles. Merci d'avance.

Ci dessous les 3 macros à traduire :

Sub choix()
selection.Show
End Sub

Private Sub TextBox4_Change()
Me.ListBox1.Clear
For Each c In [client]
If UCase(c) Like "*" & UCase(Me.TextBox4) & "*" Then
Me.ListBox1.AddItem c
End If
Next c
End Sub


Private Sub ListBox1_Click()
Sheets("CA HT").Range("b1") = Me.ListBox1
Sheets("CA HT").Range("b20") = Me.ListBox1
Sheets("QTE").Range("b1") = Me.ListBox1
Sheets("QTE").Range("b17") = Me.ListBox1
Sheets("SYNTHESE").Range("A1") = Me.ListBox1
End Sub