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 & ":e" & c.Row).Copy Destination:=Selection
End If: Next: End With