Impressions en cascade

Option Explicit

Sub Imprime()
Dim DerL&, Lig&
Application.Dialogs(xlDialogPrinterSetup).Show
DerL = WorksheetFunction.CountA(Feuil1.Columns(2))
For Lig = 2 To DerL
Feuil3.Range("C22") = Feuil1.Cells(Lig, 3)
'Feuil3.PrintPreview
Feuil3.PrintOut
Next
End Sub

Option Explicit

Sub Imprime()
    Dim DerL&, Lig&
    Application.Dialogs(xlDialogPrinterSetup).Show
    DerL = WorksheetFunction.CountA(Feuil1.Columns(2))
    Feuil1.Range("Tableau3").Sort , Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes
    Feuil3.Activate
    For Lig = 2 To DerL
        Feuil3.Range("C22") = Feuil1.Cells(Lig, 3)
        Feuil3.PrintPreview
        'Feuil3.PrintOut
    Next
    Feuil1.Activate
    Feuil1.Range("Tableau3").Sort , Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub