Macro listbox ne fonctionne plus

Bonjour,

Voila petit soucis de compatibilité car ma macro ne fonctionne plus

Private Sub TextBox1_Change()
Dim C
Me.ListBox1.Clear
For Each C In Range("Listdesig2").Offset(0, 1)
If C Like UCase(Me.TextBox1) & "*" Then ' Me.ListBox1.AddItem c
ListBox1.AddItem 'ajout d'une ligne
ListBox1.List(ListBox1.ListCount - 1, 0) = C.Offset(0, -1)
ListBox1.List(ListBox1.ListCount - 1, 1) = C
End If
Next C
End Sub