Boucle For non initialisée

Bonjour, j'ai un problem sur mon VBA :


Private Sub comboBox1_change ()
If Me.comboBox <> "" Then
Set d1 = CreateObject("Scripting.Dictionary")
tmp = UCase(Me.ComboBox1) & "*"
For Each c In a
If UCase(c) Like tmp Then d1(c) = ""
Next c
Me.ComboBox1.List = d1.keys
Me.ComboBox1.DropDown
End If
ActiveCell.Value = Me.ComboBox1
End Sub

J'ai comme message :
Erreur d'execution '92'
Boucle For non initialisée

Quand je clic sur débogage je me trouve sur For Each c In a (en jaune)

Aidez moi SVP