Alimentation de ComboBox pour filtres automatiques !

Sub ListeCol(noCol)
  Set MonDico = CreateObject("Scripting.Dictionary")
  For i = 1 To [bd].Rows.Count
     ok = True
     For n = 1 To [bd].Columns.Count
       If n <> noCol Then
         If Not Range("bd").Cells(i, n) Like Me("ComboBox" & n) Then ok = False
       End If
     Next n
     If ok Then
       tmp = Range("BD").Cells(i, noCol)
       MonDico(tmp) = tmp
     End If
   Next i
   MonDico.Add "*", "*"
   temp = MonDico.items
   Call Tri(temp, LBound(temp), UBound(temp))
   Me("ComboBox" & noCol).List = temp
   '
   ' Code  rajouté
   '
  If Val(Me.Label13) = 1 Then
    Va_Page
  End If
End Sub

Sub ListeCol(noCol)
  Set MonDico = CreateObject("Scripting.Dictionary")
  For i = 1 To [bd].Rows.Count
     ok = True
     For n = 1 To [bd].Columns.Count
       If n <> noCol Then
         If Not Range("bd").Cells(i, n) Like Me("ComboBox" & n) Then ok = False
       End If
     Next n
     If ok Then
       tmp = Range("BD").Cells(i, noCol)
       MonDico(tmp) = tmp
     End If
   Next i
   MonDico.Add "*", "*"
   temp = MonDico.items
   Call Tri(temp, LBound(temp), UBound(temp))
   Me("ComboBox" & noCol).List = temp
   '
   ' Code  rajouté
   '
  If Val(Me.Label13) = 1 Then
    Va_Page
  End If
End Sub

Sub Va_Page()

Cells(1, 27).Value = ComboBox1.Value
Cells(1, 28).Value = ComboBox2.Value
Cells(1, 29).Value = ComboBox3.Value
Cells(1, 30).Value = ComboBox4.Value
Cells(1, 31).Value = ComboBox5.Value
Cells(1, 32).Value = ComboBox6.Value
Cells(1, 33).Value = ComboBox7.Value
Cells(1, 34).Value = ComboBox8.Value
Cells(1, 35).Value = ComboBox9.Value

  On Error Resume Next
  Sheets(Pge).Visible = True
  If Err.Number > 0 Then
    MsgBox "La fiche " & Pge & " est inexistante !"
  Else
    Sheets(Pge).Select
    
     Unload Me
    Sheets("choix").Visible = False
  End If
End Sub

Sub Va_Page()
Cells(1, 27).Value = ComboBox1.Value
Cells(1, 28).Value = ComboBox2.Value
Cells(1, 29).Value = ComboBox3.Value
Cells(1, 30).Value = ComboBox4.Value
Cells(1, 31).Value = ComboBox5.Value
Cells(1, 32).Value = ComboBox6.Value
Cells(1, 33).Value = ComboBox7.Value
Cells(1, 34).Value = ComboBox8.Value
Cells(1, 35).Value = ComboBox9.Value
Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = Pge 'définit la variable nom (début du nom du fichier)
chem = ActiveWorkbook.Path 'définit la variable chem (chemin d'accès du classeur actuel, à adapter)
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End If
End With


  'On Error Resume Next
  'Sheets(Pge).Visible = True
  'If Err.Number > 0 Then
    'MsgBox "Le Classeur " & Pge & " est inexistant !"
  'Else
    'Sheets(Pge).Select
    
     'Unload Me
    'Sheets("choix").Visible = False
  'End If
End Sub

' Rajouté
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  Pge = Me.ListView1.ListItems(Item.Index).ListSubItems(17)
  Va_Page
End Sub

Sub Va_Page()
Dim nom As String 'déclare la variable nom
Dim noncomplet As String 'déclare la variable nomcomplet
Dim chem As String 'déclare la variable chem
nom = Pge 'définit la variable nom (début du nom du fichier)
chem = ActiveWorkbook.Path 'définit la variable chem (chemin d'accès du classeur actuel, à adapter)
With Application.FileSearch 'recherche de fichier
.LookIn = chem 'dans le même répertoire que le fichier actuel
.SearchSubFolders = True 'dans les sous-répertoires
'.Filename = nom & "*.xls" 'tous les fichiers Excel commençant par le nom de la boite
If .Execute > 0 Then 'si au moins un fichier est trouvé
nomcomplet = .FoundFiles(1) 'définit le nom complet du fichier trouvé
Workbooks.Open (nomcomplet) 'ouvre le fichier
End If
End With


  On Error Resume Next
  'Sheets(Pge).Visible = True
  If Err.Number > 0 Then
    MsgBox "Le Classeur " & Pge & " est inexistant !"
  Else
    'Sheets(Pge).Select
    
     Unload Me
    'Sheets("choix").Visible = False
  End If
End Sub