Sub Imprimer()
Dim w As Worksheet
For Each w In Worksheets
If w.Range("C4") <> "" Then w.PrintOut
Next
End Sub
Sub imprimerlespages()
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
If sht.Range("K92").Value <> "0" Then
sht.PrintOut
End If
Next sht
End Sub