Sub Imprimer()
Application.Volatile
Application.ScreenUpdating = True
Taille = [NumeroLigne].End(xlDown).Row
Reponse = MsgBox("Voulez vous vraiment imprimer les " & (Taille - 1) & " pages ?", vbYesNo)
If Reponse = vbNo Then Exit Sub
For i = 2 To Taille
[NumLigEnCours] = [NumeroLigne].Cells(i, 1)
Calculate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
End Sub