Sub Imprimer()
Dim Maliste
Dim Item As Variant
With ActiveSheet
Range("K1") = "der"
Range("Tableau4[#All]").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Columns("K:K"), Unique:=True
ReDim Maliste(WorksheetFunction.CountA(.Columns("K:K")) - 1)
Maliste = .Range("K2:K" & UBound(Maliste) + 1)
.Columns("K:K").ClearContents
For Each Item In Maliste
.ListObjects("Tableau4").Range.AutoFilter Field:=3, Criteria1:=Item
.PrintPreview
Next Item
End With