Sub Imprimer()
'
' Imprimer Macro
'
Dim i As Integer
Dim nb As Integer
nb = Sheets("Admin").Range("K12")
If nb = 0 Then Exit Sub
For i = 1 To nb
Sheets("Semestre1").Range("D66") = i
Sheets("Semestre2").Range("D66") = i
Sheets(Array("Semestre1", "Bulletin_sem_1", "Semestre2", "Bulletin_sem_2")).[COLOR=red]PrintPreview[/COLOR]
Next i
End Sub