problème d'incrémentation sur des feuilles excel

Bonjour Tout le Monde, le forum
Voila j 'a un pb d'incrémentation je ne sais pas trop ce qui cloche dans mon incrémentation pouvez vous m'aidez à y voir plus clair merci
voila mon code:

Private Sub CommandButton1_Click()
n = Sheets.Count - 1
Dim a As Integer
ListBox1.Clear
For a = 1 To n
With Sheets("Feuil" & a)
If Cells(2, 2).Text Like ComboBox1.Value Then
With ListBox1
.AddItem Sheets("Feuil" & a).Range("B1")
End With
End If
End With
Next a
End Sub