bonjour
ajoute ceci, copie de lamacro en changeant les critères
Sub impression_listes_par_option()
Dim cel As Range
With Sheets("BD")
For Each cel In Range("tableau3")
.ListObjects("Tableau1").Range.AutoFilter Field:=5, Criteria1:=cel.Value
.PrintPreview
Next cel
End With
End Sub