Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer, DerLig As Long, C As Range, Suite, Flag As Boolean
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Edition" Then Sheets(i).Unprotect
Next i
Set C = Columns(1).Find(What:=[E4])
If C.Offset(, 1).Value = 1 Then Sheets("Feuil1").Range("T153:CZ190").Copy Destination:=Sheets("MAGASINAGE EGRENES").Range("A65000").End(xlUp).Offset(1)
DerLig = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To DerLig
If Cells(i, 1) = [E4] And Cells(i, 2) <> 0 Then Sheets("Egrenés FDR").PrintPreview ' à Remplacer par PrintOut
Next i
If Not C Is Nothing Then C.Offset(, 1).Value = 0
For i = 1 To Sheets.Count
If Sheets(i).Name <> "Edition" Then Sheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next i
Application.ScreenUpdating = True
End Sub