[COLOR="DarkSlateGray"][B]Private Sub CocherTout()
Dim i%, tf As Boolean
For i = 1 To 60
tf = [C22].Offset(i, 0).Value <> ""
Sheets("MENU").OLEObjects("CheckBox" & i).Object.Value = tf
If tf Then Sheets("C" & i).PrintOut Copies:=1, Collate:=True
Next i
End Sub[/B][/COLOR]