Sub Macro()
Sheets("Liste extraite").Cells.Delete Shift:=xlUp
With Sheets("Base")
.Range("D12:I12") = Application.Transpose(Sheets("Fiche de simulation").Range("B3:B8"))
.Range("A1:I6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"A11:I12"), CopyToRange:=Sheets("Liste extraite").Range("A1:I6"), Unique:=False
End With
End Sub