Pb VBA champs dynamique

Bonjour

Je suis débutant en VBA et je cherche à réaliser un programme permettant de filtrer différentes colonne sur différentes lignes... J'aimerais augmenter ce nombre de colonne et de ligne. Voici le code :

Sub filtre()
ligne = 0
Me.ListBox1.Clear
For i = 1 To [bd].Rows.Count
ok = True
For n = 1 To [bd].Columns.Count
If Not Range("bd").Cells(i, n) Like Me("comboBox" & n) Then ok = False
Next n
If ok Then
Me.ListBox1.AddItem
For k = 1 To [bd].Columns.Count
Me.ListBox1.List(ligne, k - 1) = Range("bd").Cells(i, k)
Next k
ligne = ligne + 1
End If
Next i
On Error Resume Next
' ActiveSheet.ShowAllData
' [A1].AutoFilter Field:=1, Criteria1:=Me.ComboBox1
' If Me.ComboBox2 <> "*" Then [A5].AutoFilter Field:=2, Criteria1:=Me.ComboBox2
' [A1].AutoFilter Field:=3, Criteria1:=Me.ComboBox3
' [A1].AutoFilter Field:=4, Criteria1:=Me.ComboBox4
' [A1].AutoFilter Field:=5, Criteria1:=Me.ComboBox5
End Sub

Je pense que le problème vient de (BD), je ne sait pas ce que c'est car c'est un tuto que j'ai récuperer... COmment peut on changer cette plage de donnée !

Merci d'avance