Tu fais un bouton > double clique là dessus
et tu mets ce code:
mot_clef = InputBox("Veuillez saisir votre recherche")
LaDerniere = Application.Workbooks("ton_fichier.xls").Worksheets("ton_nom_de_feuille").Cells(65536,choix).End(xlUp).Row
k= 1
For i = 2 To LaDerniere
If Application.Workbooks("ton_fichier.xls").Worksheets("ton_nom_de_feuille").Cells(i, choix).Value = mot_clef Then
Application.Workbooks("ton_fichier.xls").Worksheets("ton_nom_de_feuille").Range("A" & i & ":C" & i & "").Copy
Application.Workbooks("ton_fichier.xls").Worksheets("ton_nom_de_feuille").Range("F" & k & "").Select
ActiveSheet.Paste
k=k+1
end if
next i
la variable choix est un nombre qui détermine dans quelle colonne tu veux effectuer ta recherche
choix = 1 si ta recherche se fait par nom et que les noms se situe dans la colonne A
"La culture c'est comme la confiture : moins on en a plus on l'étale"