Couper Coller dans onglets d'apres une table

Dim h As Long
Dim Plage As Range
Sheets.Add After:=Sheets(Sheets.Count)
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "CUT"
Set Plage = Range("C2", Range("C65536").End(xlUp))
For h = Plage.Cells.Count To 1 Step -1
If Plage.Cells(h).Value = "XXX" Then 'XXX devant se trouver dans le fichier TABLE
With Plage.Cells(h).Resize(, 10)
.Copy Sheets("CUT").Range("A65536").End(xlUp)(2) 'la copy devrait se retrouver dans un onglet portant le nom du code
.Delete xlShiftUp
End With
End If
Next
Application.CutCopyMode = False

Cliquez pour agrandir...