Option Explicit
Sub Macro1()
Dim LO As ListObject, Code As SsGroup, Dest As SsGroup
Set LO = Feuil1.ListObjects(1)
For Each Code In GroupOrg(LO, 6, 18)
LO.Range.AutoFilter Field:=6, Criteria1:=Code.Id
If Code.Id = "0125" Then
LO.Range.AutoFilter Field:=18
Feuil1.PrintPreview
Else
For Each Dest In Code.Contenu
LO.Range.AutoFilter Field:=18, Criteria1:=Dest.Id
Feuil1.PrintPreview
Next Dest: End If: Next Code
Feuil1.ShowAllData
End Sub