Sub b()
Dim NbPrint%, NomF, i As Byte
NomF = Array("prod1", "prod2", "prod3", "prod4")
For i = 0 To UBound(NomF)
NbPrint = CInt(Sheets("Feuil1").Cells(3, i + 1))
Select Case NbPrint
Case 0
MsgBox "Aucune exemplaire pour la feuille: " & Sheets(NomF(i)).Name, vbCritical
Case Is > 0
Sheets(NomF(i)).PrintOut , NbPrint
End Select
Next i
End Sub