Re,
Je n'assurerai pas de suivi pour cette procédure.
J'ai la nette impression que l'on monte une usine à gaz pour une simple mise en forme des données.
Cdlt.
Option Explicit
Public Sub FilterData()
Dim lo As ListObject, lo2 As ListObject
Dim rng As Range, rng2 As Range
Dim lCol As Long, lRow As Long
Set lo = Worksheets("Feuil1").ListObjects(1)
With ActiveSheet
Set lo2 = .ListObjects(1)
With lo2
If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
lCol = .ListColumns.Count
.Unlist
End With
Set rng = .Range("D8:E9")
lo.Range.AdvancedFilter _
Action:=xlFilterCopy, _
criteriarange:=rng, _
copytorange:=ActiveSheet.Range("A12:J12"), _
unique:=False
lRow = .Cells(.Rows.Count, 2).End(xlUp).Row - 11
Set rng2 = .Cells(12, 1).Resize(lRow, lCol)
Set lo2 = .ListObjects.Add(xlSrcRange, rng2, , xlYes)
With lo2
.Name = "TbFiltre"
.TableStyle = "TableStyleLight1"
End With
End With
End Sub