voici mon code VBA
Private Sub Afficher_Click()
Sheets("BD").Select
Range("U1").Select
Sheets("BD").Range("U2") = ComboBox1.Value ' j'affecte le critere de recherche ? la celulle U2
Sheets("BD").Range("U3") = CStr("*" & TextBox3.Value & "*") ' et j'affecte le contenu de recherche ? la cellule U3
Call Marecherche 'je lance un filtre sp?cial
ListBox1.RowSource = Feuil1.Range("X2:AK1000").Address(external:=True) 'et j'alimente la listbox1 avec le resultat du filtre special
End Sub
Public Sub Marecherche()
Sheets("BD").Select
Range("D2:Q1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"U2:U3"), CopyToRange:=Range("X2:AK2"), Unique:=False
End Sub
Private Sub Fermer_Click()
Unload Me 'Je ferme mon formulaire
End Sub
Private Sub UserForm_Initialize()
ComboBox1.List = WorksheetFunction.Transpose(Feuil1.Range("D2:Q2")) ' on alimente en colonne la combobox1 avec les valeurs des intitul?s de colonne _
du tableau de la feuille
End Sub