extraction de valeur d'un tableau

Bonjour,
A partir d'une base de donnée (feuil détail), je souhaiterai copier certaines lignes dans une autre feuille (feuil tableau), et cela en fonction d'un critère commun au 2 feuilles.
Cela pourrait concerner plusieurs critères (1 à la fois)


Exemple : Dans feuil tableau j'ai mon critères (voiture en cellule F4)
je souhaite copier toutes les lignes où figures ce critère en colonne A
Les lignes doivent être copier (par insertion à partir de A5)
Je vous joint un fichier pour exemple

Je pensais réaliser cela en faisait une boucle, voici mon raisonnement :
1- Tant que la cellue (de la colonne F) est vide, on passe à la cellule en dessous.
2 - Quand cellule est non vide, on recherche la valeur de la cellule dans la BDD (feuille détail) en colonne A.
3 - Une fois trouvée on copie la ligne et insertion dans la 2è ligne en dessous du criteres d'origine (feuille Tableau)

4 - on poursuit la boucle

Merci de votre aide,

bonsoir joums le forum comme j'ai compris!!!
attention j'ai simplifier le nom des feuilles. adapte
code basique a optimiser

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Option Explicit Sub Test() Dim f As Range, c As Variant Application.ScreenUpdating = False Sheets("Tableau").Activate With Sheets("Detail") For Each c In .Range("a7:a" & .Range("a65000").End(xlUp).Row) Set f = Sheets("Tableau").Range("f3:f" & Range("f65000").End(xlUp).Row).Find(c, LookIn:=xlValues, LookAt:=xlWhole) If Not f Is Nothing Then Rows(f.Row + 1).Insert Shift:=xlDown Cells(f.Row + 1, 1).Select Sheets("Detail").Range("a" & c.Row & ":d" & c.Row).Copy Destination:=Selection End If: Next: End With End Sub

---

Bonjour laetita,

Je pense que tu as bien compris :ccool:
la macro fonctionnel comme je souhaite,
je vais l'adapté à mon fichier
Encore merci