Sub ImpressionFiltreUnAUn()
Dim DLig As Long, Lig As Long
Dim MaCollection As New Collection
Dim Item As Object
' Récupérer le numéro de la dernière ligne remplie
DLig = Range("A" & Rows.Count).End(xlUp).Row
' Créer la collection d'éléments = liste sans doublon
On Error Resume Next
For Lig = 2 To DLig
MaCollection.Add Item:=Range("A" & Lig), Key:=Range("A" & Lig)
Next Lig
On Error GoTo 0
' Pour chaque élément
For Each Item In MaCollection
' Créer le filtre
Range("$A$1:$C$1").AutoFilter Field:=1, Criteria1:=Item
' Imprimer la feuille
ActiveSheet.PrintOut
Next Item
' Supprimer le filtre
Range("$A$1:$C$1").AutoFilter
End Sub