Sub imprim()
Dim LesOnglets, Sh
Dim Col As Byte
Col = 4
LesOnglets = Array("A", "B", "C", "D")
For Each Sh In LesOnglets
With Sheets(Sh)
If Sheets("MP").Cells(11, Col) > 0 Then
.PrintPreview
' .PrintOut Copies:=Sheets("MP").Cells(11, Col)
End If
End With
Col = Col + 1
Next Sh
End Sub