XL 2013 Impression auto par rapport à une liste

sylvanu à dit:

Exact, il manque un "+1" à cause de la ligne des titres.
Dans la PJ j'ai remplacé le Print par un msgbox. Quand ça marchera il suffira d'inverser les commentaires;
Par contre je vais bien jusqu'à la dernière feuille, la 9.

VB:

Sub Imprimante_Click()
    Dim Ligne%, DL%
    Application.ScreenUpdating = False
    DL = Sheets("Donnée").Cells(Cells.Rows.Count, "A").End(xlUp).Row
    If [B4] = "" Then NumB4 = 1 Else NumB4 = [B4]
    For Ligne = NumB4 + 1 To DL
        [B4] = Sheets("Donnée").Cells(Ligne, "A")
        Calculate
        'ActiveSheet.PrintOut
        MsgBox "Impression feuille : " & [B4]
    Next Ligne
End Sub

NB:
XLD est un site d'échange mais aussi une vaste base de données, alors soyez compréhensif quand on vous demande...

Cliquez pour agrandir...